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

#This is the command I need to run
my @Command = `ulread`;

my $line;
my @stripped=();

# Get rid of the separators and put everything into
# another array

foreach $line(@Command){
  if($line=~/^-+$/){}else{
    push @stripped,$line;
  }
}

# The end of the array will have 4 lines that are not part 
# of any record (it is actually statistical info for the
# entire display). These lines can be removed.

for(1..4){ pop @stripped; }