well, i am Mr. Read-Binary-Data-in-Perl-using-Pack-and-unpack, but sometimes you do not have the spec, or it cannot be reverse engineered (easily). I tend to use open(FH,"command |") instead of back ticks, so i would do something more like _{(untested code ahead)}:

#!/usr/bin/perl -w
use strict;

my @data = ();
$/ = '------------------------------------------------------------\n';
open(PIPE,'ulread |') || die "could not fork() : $!\n";
while (my $line = <PIPE>) {
    ## total block
    push @data, $line    
}
close(PIPE) || die "close error : $!\n";

for(1..4){ pop @data; }
[download]

---

_{speling champ of tha claz uf 1997}
-- MZSanford