$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
Line 1
Line 2
Line 3
EOD

my $wholeText = join q{ }, map { chomp; $_ } <$inFH>;

say $wholeText;'
Line 1 Line 2 Line 3
$