Select Code to Download

#!/usr/bin/perl -w ###-DDEBUGGING -d -Dslt`
use strict;
...
$content =~ s?$searchPattern?${1}${insertion}?msx;
print "content now = <$content>";
exit 0;

content = <#!/usr/bin/perl   

...

yaba-dubba-doo
>