# call as: ConvertFindLaw.pl PilotLifeFindLaw.htm  
use 5.010;
use Switch;
use strict;
my $wholeFile;
my $INPUT_FILE = shift; 
my $FH; 
open(FH, $INPUT_FILE) or die "Bad $INPUT_FILE: $!"; ;
foreach my $line (<FH>) { # print $line; # All lines printed
# chomp $line; # this makes no difference to the problem
$wholeFile .= $line; }  # Build a long string
close(FH);
print $wholeFile; # front truncated here