Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
    push @list, [$1, $2];
}
print Dumper \@list;
  2. or download this
    #!/usr/bin/perl
use strict;
...
    )+
}xs or die "No match";
print Dumper \@list;