I should have been more specific. I was suspicious that matching reg exp would do the trick. Here is what I have so far:

# read in times
open MYFILE, "<$dir/structs/times";
my @temptimes = <MYFILE>;
close(MYFILE);
print "$#temptimes\n";
my @strtimes;
for (my $i = 2;$i <= $#temptimes;$i++){
  if ($temptimes[$i] =~ m/(\d+.\d+)/){
    print "$1\n";
  }
}
[download]

I'm having trouble reading the other two values and storing them in an array. I figured I could just multiply by 10^3 to account for the "E+03", as I didn't know how to deal with the "+" sign. Sorry if it seemed like I'm looking for homework solutions - in fact this is not homework. I can do this in other languages, I just want to learn Perl.