A little quickie. Its novelty is that it doesn't simply unscramble itself to generate its output. I can't guarantee it will run on every system, but I think it should, if you have a complete installation of Perl. It certainly works with ActivePerl.

Bonus points if you guess what the F in the title is for. (No, it's not vulgar.)

s;;^(?:.*) -+ [\$^]|;,y/?$)](:.[*^+/racheldjopq/for$ARGV[0];print/"(.*
+)"/for<>
[download]

Update: ambrus notes that changes in 5.10.0 cause it to print twice.