All that typing though! And I thought perl programmers were supposed to be lazy :-) I might have done it like this:

#!/usr/bin/perl -n -l
print join(' ', $i++, (split)[1,3,4,11,13]) if / physio_start /;
[download]

The only difference is that his line counter starts at zero, and $. will start at one, which may or may not matter. And his explicitly opening $ARGV[0] is a bit different than using <> (albeit implicitly) here. And using explicit variables (as he does) documents what they are a bit better than using an anonymous array (like I have here), but if that's a concern, I might cut n paste a short description of all the fields (whether I use'em or not) into a comment line.

Update:Fixed a bug, he was counting output rows, not input records, so nevermind about $. :-)

------------
ooo  O\O  ooo tilly was here :,(