http://www.perlmonks.org?node_id=1011220


in reply to Re: Replacing matches within string without splitting.
in thread Replacing matches within string without splitting.

That worked beautifully (in Perl 5.8 without Modern::Perl)! Thank you :)
$channels =~ s{\b(\d)\b}{0$1}g;