#!/usr/bin/perl -w

#######################################################
# lab03_patt2
#
# using simple patterns with backslash escapes, to demo that they
# work --- see which lines passed to it contain a tab character,
# and display them to the screen.
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-7-04
#######################################################

while (<>)
{
    chomp;

    # see if $_ contains at least one tab character within it
    if (/\t/)
    {
        printf "LINE W/TAB:<%s>\n", $_;
    }
}


# end of lab03_patt2