c:\@Work\Perl>perl -wMstrict -le
"my $s = '123perl456perl789perl10';
 ;;
 my @caps = $s =~ m{ (?= (.. perl ..)) }xmsg;
 ;;
 print qq{'$_'} for @caps;
"
'23perl45'
'56perl78'
'89perl10'