my ( $first, $second ) = split /\t+/;

##</code><code>##

        my ( $first, $second ) = split or next;