$lines[$i] =~ s/\012//g;