$channels =~ s{\b(\d)\b}{0$1}g; [download]
In reply to Re^2: Replacing matches within string without splitting. by walkingthecow in thread Replacing matches within string without splitting. by walkingthecow