my $arg = q{butteer "scotch"};
$arg =~ s{"}{\\"}g;
system (qq{blah "$arg" ....});