my $a = 'ab';
$a =~ /a*ab/; # matches
$a =~ /(?>a*)ab/; # doesn't match