remove r-lines with 5th field set to empty string

Here is the perl one-liner to do that :

I want to leave h-line and t-line headers as they are remove r-line with 5th field set to empty string.This is how i did.

perl -nlaF"^A" -e 'if( $F[0] =~ /^h|t/){ print }; next if $F[4] == "" ; print '

la.1288854355.multiple.set1.72.247.41.47.9.1288854355.1.9.done > /tmp/good.done