next if (m/^$/);
last if (m/^Press.*/)       
my $line = $_; 
#grab bits here instead of using awk