Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

print "$num[$_],\n" foreach (0..$#num);
  2. or download this
    @num = split/(?:[a-b,A-Z])/, $x;

print "$num[$_],\n" foreach (0..$#num);
  3. or download this
    @num = split/[a-b,A-Z]/, $x;
print "$num[$_],\n" foreach (0..$#num);