Help for this page

Select Code to Download

Select or download this

my $count=10;

...
  ($count) = $ARGV[0] =~ /^(\d+)/;
   shift(@ARGV);
}

Select or download this
```
($count) = $ARGV[0] =~ /^(\d+)/;
```