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


in reply to Suggestion on rewriting small code

One more way: 
my $str = "(12341,1245125,1525125,125125125)";
print $str =~ s/,/ || /gr =~ y/()/"/r =~ s/(?=\b\d)/job==/gr;

[download]

In Section Seekers of Perl Wisdom