Help for this page
#!/usr/bin/perl while(<DATA>){ ... {TDATE} Saturday, January 1, 2000
S 9912290449 00005941^B{TT} D ... R S 9912290451 00005941^B{TT} D
S 9912290449 00005941^B{TT} D S 9912290451 00005941^B{TT} D