>perl -wMstrict -lE
"my $s = 'abababa';
 my $t = 'aba';
 ;;
 my $c = map /(?=$t)/g, qw(abababa  ababa);
 say $c;
"
5