Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
    $ins1 =~ /[\d+-]+(?: \w ([\d+-]+)(?{print \@inserts, "\n"; push @i
+nserts, $1}))*/g;
    print "\n" . join ' ', @inserts;
}
  2. or download this
    
at the beginning: ARRAY(0x189126c)
...
ARRAY(0x189126c)
ARRAY(0x189126c)
ARRAY(0x189126c)