Select Code to Download

#! perl -slw
use warnings;
...
PTRED~06/19/10 09:19:55 PM ~04/25/10 07:39:22 PM ~09/16/10 10:34:24 AM
+ ~07/22/10 06:19:38 PM
RED~04/29/10 12:10:59 AM ~04/20/10 02:13:33 AM ~07/17/10 01:00:05 PM ~
+09/01/10 11:10:15 PM
INT~05/23/10 11:11:11 PM ~01/08/10 10:45:12 PM ~05/15/09 03:29:37 AM ~
+05/18/09 12:59:59 PM

c:\test>junk51
EVENT   JIM     BOB     SAM     JACK
...
PTRED   2       1       4       3
RED     2       1       3       4
INT     3       4       2       1

#! perl -slw
use warnings;
...
PTRED~06/19/10 09:19:55 PM ~04/25/10 07:39:22 PM ~09/16/10 10:34:24 AM
+ ~07/22/10 06:19:38 PM
RED~04/29/10 12:10:59 AM ~04/20/10 02:13:33 AM ~07/17/10 01:00:05 PM ~
+09/01/10 11:10:15 PM
INT~05/23/10 11:11:11 PM ~01/08/10 10:45:12 PM ~05/15/09 03:29:37 AM ~
+05/18/09 12:59:59 PM

c:\test>junk51
EVENT   JIM     BOB     SAM     JACK
...
01/08/2010 10:45:12 PM  <-> 05/15/2009 03:29:37 AM  := 1
01/08/2010 10:45:12 PM  <-> 05/18/2009 12:59:59 PM := 1
INT     3       4       2       1