Select Code to Download

#!/usr/bin/perl

...
    )/gx;
  printf "%*s   %s\n", $leftside, $str, "@numbers";
  }

                                  0.   0.
                               0.007   0.007
...
           2004.04.12 Friedl nomatch   
     all of 12.34 and 3.4.5.6 and 37   12.34 37
300 10.16.2023 -42 255.0.0.0 lucky 7   300 -42 7