#!/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;