my $arg = $ARGV[0];
$arg =~ s/\*$//;    # Remove trailing '*', if any.