sub f { my $pat = $_[0]; (my $str = 'abba') =~ s/$pat//g; }
f('b')
f('b')
f('b')