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<>
Update: ambrus notes that changes in 5.10.0 cause it to print twice.
Caution: Contents may have been coded under pressure.