17:58 >perl -Mstrict -wE "my $s = 'ababa'; my $t = 'aba'; my $c = () = $s =~ /(?=$t)/g; say $c;"
2

18:02 >