To obtain a laugh from the following perl code:
1)run
2)obtain output
3)run output
4)repeat 2-4
$x = <<'LOL';
#Meaningless chart/data is meaningless
$x =~ s/\x67less/\x67ful/g;
$x =~ s/((7less)|(7ful))(.+?)((7ful)|(7less))/$5$4$1/g;
print "#!/usr/bin/perl\n\n\$x = <<'LOL';\n${x}LOL\n";
print $x;
LOL
#Meaningless chart/data is meaningless
$x =~ s/\x67less/\x67ful/g;
$x =~ s/((7less)|(7ful))(.+?)((7ful)|(7less))/$5$4$1/g;
print "#!/usr/bin/perl\n\n\$x = <<'LOL';\n${x}LOL\n";
print $x;