This seems to behave as you desire, though I'm still not sure if its what Three-G wants (from his description, I thought its what I previously posted):

if ( @ARGV ) {
    foreach my $i ( 0 .. $#ARGV ) {
        print "ARVG[$i]: ", $ARGV[$i], "\n";
    }
    exit(0);
}
system("perl", $0, 'foo', '"\"bar baz\""');
# or this:
system("perl", $0, 'foo', qq("\\"bar baz\\""));

ARVG[0]: foo
ARVG[1]: "bar baz"
[download]