#!/usr/bin/perl -w

#######################################################
# lect04_equaltilde1
#
# to match patterns to variables OTHER than $_
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-14-04
######################################################

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 lect04_equaltilde1