foreach (@lines){
chomp($_);
print "$_\r\n";
}