Select Code to Download

#!/usr/bin/perl
my $Gibberish=<<EOGibberish;
...
$Gibberish =~ s/$search/XXXXXXXX/g;

print $Gibberish;

marco@Boink:~
$ perl splorch.pl
This is a XXXXXXXX.  It's not a particularly great XXXXXXXX, but
it's a XXXXXXXX nonetheless.  It would suck if someone accidentally
changed it!