map { s/^-// } @ARGV;
  print join ("\n", @ARGV) . "\n";

##</code><code>##

print join "\n", map { s/^-// } @ARGV;

##</code><code>##

$_ = 'aaaaaaaaaaa';

my $x = s/a//;

print "$x\n";