Moin!
1 - mit dem Modul File::Slurp (cooler Name, finde ich...)
use File::Slurp;
$datei = read_file($dateiname);
Ineffizient! Das Modul tut naemlich auch nichts anderes als das, was Frank vorgeschlagen hat, wie ein kurzer Blick in den Source-Code zeigt.
Ausserdem ist es kein Standardmodul, man kann sich auf seine Verfuegbarkeit also nicht verlassen. Nuin gut, man koennte es natuerlich einfach mitliefern.
2 -
{
local $/ = undef;
$datei = <FILEHANDLE>;
}
Das ist die effizienteste und zu bevorzugende Methode. Hier werden naemlich nicht erst muehsam die Zeilen getrennt, die danach sowieso nur wieder mit join() zusammengefuegt werden.
So lange, Calocybe