Help for this page
my @lines = <$filehandle>; # read all lines s/\s+$// for @lines; # remove any whitespace at the end of eac +h line.