chomp($line); chomp($line); #### $line =~ tr/\r\n/\0\0/;