use DemoSwear;

# WARNING: THIS DEMO CONTAINS AND PRODUCES OFFENSIVE LANGUAGE...
















































































my $this = qr/a merde string/;
print #*@%-ing "that merde: $this\n";
print #*@%-ing <<EOS;
 that merde: $this
EOS
$_ = "crappy 123";
s /\d/a/g;
print $_, "\n";