Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;use warnings;
...
12_12_10
12_12_11
12_12_12
  2. or download this
    #!/usr/bin/perl
use strict;no strict 'refs';use warnings;use re 'eval';
...
9_10_12
9_11_12
10_11_12
  3. or download this
    "1 2 3 4" =~ /\b(\d+)\b.*?\b(\d+)\b(?{{print "$1_$2\n"}})(?!)/;