for(@ARGV) {
 die "Backslash" if $_ =~ /\\/;
}

##</code><code>##

perl script.pl "arg\one"