Help for this page

Select Code to Download


  1. or download this
    map { s/^-// } @ARGV;
  print join ("\n", @ARGV) . "\n";
  2. or download this
    print join "\n", map { s/^-// } @ARGV;
  3. or download this
    $_ = 'aaaaaaaaaaa';

my $x = s/a//;

print "$x\n";