Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
       map { sprintf qq{%15s : %5s\n}, @$_ }
       map { [ $_, m{(\d{1,5})(?=0*\z)} ] }
       @nos;
    
  2. or download this
           12304500 : 23045
                123 :   123
      1234567000000 : 34567
       987045027000 : 45027