Select Code to Download

$s = '
<p>something something</p>
...
$s =~ s/$before/$after/;

print $s;

<p>something something</p>
<h1>$1</h1>
<p>something something</p>

$s =~ s/$before/eval{$after}/e;

$regex = 's!<h2>([^<]+)</h2>!<h1>$1</h1>!g';

$s =~ $regex;

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print