Select Code to Download

$mydata =~ s/([\w\s]+)\s([\w\d]+)\s(0000.*)/$1,$2,$3/g;
$mydata =~ s/(:\d{2})\s0000/$1,$2/g;

#!/usr/bin/perl
# NODE34853.pl
...
#Bob Smith,bsmith,00001234567 01/01/1986 00:00:00
#Mary Ann Doe,mdoe,00001234568 01/01/1986 00:00:01,00001234563 01/01/1
+986 00:00:02,00001234563 01/01/1986 00:00:03
#Gilligan Q Smith,gsmith,00001234569 01/01/1986 00:00:01,00001234569 0
+1/01/1986 00:00:02