That may admit bogus customers that don't exist, or that the program cannot deal with. It may be wiser to spell out exactly what is legal.

(my $cust = $ARGV[1]) =~ s/^-(SMC|SBM|FET|China)$/$1/
    or die "garbage in second arg: <$ARGV[1]>\n";
[download]