open (INFILE, "<myfile.txt");
open (OUTFILE, "<myfile.txt");
while (my $row = <INFILE>) {
    $row =~ s/~/\r/g;
    print OUTFILE $row;
}
close (INFILE);
close (OUTFILE);