unshift(@ARGV,$0);
@ARGV = map {s/^"(.*)"$/$1/ ? s/""/"/g && $_ : $_ } @ARGV;
for my $n (0..$#ARGV) { print "$n:$ARGV[$n]:\n" }