Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'foorev_123bar';
...
 print qq{captured '$1'} if $s =~ m{ rev_ (\d)+ }xms;
"
captured '3'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'foorev_123bar';
...
 print qq{captured '$1'} if $s =~ m{ rev_ (\d+) }xms;
"
captured '123'