#!/usr/bin/perl -w

#######################################################
# lab03_quantifier1
#
# using simple patterns with quantifier *
#
# see which lines contain "oil change" followed by ANY number of
# tabs followed by 12.99
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-7-04
#######################################################

while (<>)
{
    chomp;

    # see if $_ contains "oil change", any number of tabs, 12.99
    if (/oil change\t*12.99/)
    {
        printf "line with oil change tabs 12.99:<%s>\n", $_;
    }

}


# end of lab03_quantifier1