Re^2: s/// for \dOO for typos

in reply to Re: s/// for \dOO for typos
in thread s/// for \dOO for typos [SOLVED]

Try this:

#!/usr/bin/perl

use strict;

my $new = "100o798 boonanas woot!";
print "Original line: $new\n";
$new =~s/([0-9]+)o/$1\Q0\E/gi;
print "With ~s: $new\n";

exit;
[download]

Thanks,
Dawn

In Section Seekers of Perl Wisdom