Clear questions and runnable code get the best and fastest answer |
|
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
$ro->insert(end => join "", map s/^(\d\d)\d*/$1%/r . "\n", @matches[...] );$ro->insert(end => join "", map { do { (my $s = $_ ) =~ s/^(\d\d)\d*/$1%/ . "\n"; $s }, @matches[...] });
Try: Update: ... the s///r pragma.NB: s///r is not a pragma. /r is a modifier (update: available from Perl version 5.14 on) of the s/// operator. Give a man a fish: <%-{-{-{-< In reply to Re^3: String Comparison & Equivalence Challenge
by AnomalousMonk
|
|