Help for this page

Select Code to Download


  1. or download this
    #! /usr/local/bin/perl -wl

...
^\d{4}-\d{3}$
^\d{4}\d{3}$
^\d{4}$