Select Code to Download

#!/usr/bin/perl

...
        my ($title, $start_date, $start_time, $end_date, $end_time, $s
+tatus, $prixit) = split(/\s/, $line);
        print "$title $status\n";
}

[vxp@vxp ~]$ cat spg.txt
spg-risk-ln-box              06/24/2009 21:14 06/24/2009 22:01 IN 3969
+3696/0    
...
  spg-risk-ln_abs_frn        06/24/2009 21:15 06/24/2009 21:17 IN 3969
+3696/1    
  spg-risk-lnliq             06/24/2009 21:14 06/24/2009 21:18 IN 3969
+3696/1    
[vxp@vxp ~]$