my $line = join '', map { chomp } <FILEPTR>;