Select Code to Download

use strict;
use warnings;
...
$str =~ s/\bdie\b//g;
$str =~ s/\\(n|r)//g;   # alternation
print $str, "\n";

ZZ<<;ght;''d;\t\t\t\t\t;$_;LicBpack;'c*'=;perl$@pop&&@;D9