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