Help for this page

Select Code to Download

Select or download this

sub foo {
  my $bar = shift;
...
}

my $text =~ s{(<img.+?>)}{foo($1)}sige;