in reply to Useless use of string eq
$cust = (split(/-/, $ARGV));
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) =~ s/^-(SMC|SBM|FET|China)$/$1/
or die "garbage in second arg: <$ARGV>\n";
• another intruder with the mooring in the heart of the Perl
Fruit and Vegetables
Me, that's why I'm so cool
Logic (separated into Horror and Brilliance)
Results (243 votes). Check out past polls.