Select Code to Download

% perl
$raw = 'this/is/a/test';
...
$c = 'was/a';
$raw =~ s/$b/$c/g;
print $raw, $/;        # this/was/a/test