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