Select Code to Download

#! perl -slw
use strict;
...
'2001.11.200400095.8000071.8500081.45'
'4001.11.1994(Anaes.)'
'5001.12.1991Metatarsal, 1 of, treatment of fracture of'

m[
  ## Capture, starting with '20', one date, and 3x %8.2 floats
...
  ## Capture, '50', a date, everything to the end of line.
  ( 50 $re_date .* $ )
]x; ## ignore whitespace.