my $file2 = ; chomp $file2; die $file2; __DATA__ The quick brown fox ##

##

The quick at data.pl line 5,  line 1.

##

##

undef $/;
my $file2 = ; 
chomp $file2;
die $file2;
__DATA__
The quick
brown
fox

##

##

The quick
brown
fox