Help for this page

Select Code to Download


  1. or download this
    my $re = qr/(?<whole_enchilada> (?<Letter>\w+) (?<Digit>\s*\d+\s*)* )/
    +x;
    
  2. or download this
    #!/usr/bin/env perl
    use 5.034;
    ...
    oscar:~  1027> perl refoo.plx
    a 1 2 3 : 'a'    1 |2 |3
    b 4 5 6: 'b'     4 |5 |6