Select Code to Download

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

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

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

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

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

my $re_a = qr/a/;
my $re_b = qr/b/;
...
f($re_b);
f($re_a);
f($re_b);