Like `grep`:

<!-- exec -->

    $ perl -ne 'print if m/^T/;' examples/authors.tsv | column -t
    Tolkien  John    Ronald  Reuel
    Toews    Miriam

<!-- end -->