my $data;
# immer schön mit Warnungen arbeiten!
open (my $in,'<',"./INPUTFILE") or die("ERROR OPEN FILE ($!)\n");
{
  # lokal den Inputseparator verändern "\n" ist default.
  local $/=undef;
  # alles einlesen
  $data= <$in>;
}
close $in;