$ perl -e 'die "error:  @ARGV[0]" if @ARGV[0] =~ /\\/' foo\\bar
error:  foo\bar at -e line 1.