>perl -Mre=debug -e"sub f { my $pat = $_[0]; (my $str = 'abba') =~ s/$pat//g; } f('b'); f('b'); f('b');" 2>&1 | find /c "Compiling"
1