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