Added a perl/regexp solution

This is a simple non-solution which parses itself as input and prints the required characters inline in the regexp, before exiting before Perl compilation has finished.