while() { last if /\t/; } die "No tab-delimited fields found\n" unless ( /\t/ );