Select Code to Download

use Modern::Perl;

my $string = 'Search, find and tell me! where, oh where are those funn
+y characters???';
...
push @positions, [$1, pos($string)] while ($string =~ m/([-\s,.!?;])/g
+);
}