Help for this page

Select Code to Download

Select or download this
```
s/foo/bar/
s/(fo)o/bar$1/
```

Select or download this

my $pattern = <FILE>;
my @parts = split /\//, $pattern;
my $search = qr/$parts[1]/;
$string =~ s/$search/$parts[2]/;