Help for this page
#~ two digits, #~ followed by a dash, ... print $re; __END__ (?^:\d\d\-(?:\d?)\d\d\d\d)
\d Match a digit ... \d Match a digit