#!/usr/bin/perl -wl0040
use strict;
use English;
use vars qw( $ARG );

# Amazing Regexp Grinder (ARG)
# Usage: perl arg.pl <your-name>

$_ = shift || "Dog and Pony";

print "\n$_:\n";

$ARG = qr(
	
  /^C^C^C^P\\\[^D"\[^P^C""0"\0\/""\0""!!0""0\0""0\0""0!!\/"""0"\[^P^C0\[!^C^P"\[^C0^P\/\\\0"!"0"!"0\["\\"0""0\/^P^C0"""0"\[\[\\\\0"\0/
);

($_=~s/$ARG/JAPH/ || s/(\W)/\$$1/g && s/\$(\s)\$//g && s'([^/]+)'#$1\') or warn "No match!";	

print qq($') && eval;