Help for this page

Select Code to Download

Select or download this

perl -wMstrict -e "my $re = qr/ ^ (\d+?) ( (??{ qq(.{$^N}) }) ) /x;
/$re/, print qq($_ [$1] [$2] \n) for @ARGV"
...
54321234 [5] [43212]
12xxxxxxxxxxx [1] [2]
12xxxxxxxxxxxx [1] [2]