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


in reply to Suggestion on rewriting small code

Try sprintf.
use strict; use warnings; my @arr = (12341,1245125,1525125,125125125); my $str = sprintf 'job==%d || 'x(@arr-1) . 'job==%d', @arr; print "$str\n";
Bill