#!/usr/bin/perl -w

#######################################################
# class6_06_equaltilde1
#
# for patterns used with variables OTHER than $_
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-28-03
#######################################################

print "type in a number: ";
chomp($num = <STDIN>);

print "type in a name: ";
chomp($name = <STDIN>);

if ($num =~ /9/)
{
    print ("hey, your num $num contained a 9!\n");
}

if ($name =~ /Wall/)
{
   print "Mr. Wall! Can I have your autograph?\n";
}

# end of class6_06_equaltilde1