perl -ne '$s=$_; END{ exit($s=~/^T/ ? 0 : 1) }' /tmp/foo