#!/usr/local/bin/perl

$answer = "";


while ($answer ne "quit\n"){
  print "Please type in a value (or 'quit'): ";
  $answer = <STDIN>;
  print "\n";
  print "Your answer was $answer";
  if ($answer=~m/bug/){
    print "There's a bug here!\n\n";
  }; #  End if
  
  # test for the numeric pattern stuff
  if ($answer =~m/[0-9]/){
    print "There's a number here \n \n";
  };
  if ($answer =~m/[^0-9]/){
    print "No numbers here \n \n";
  };

  #do a substitution
  $answer =~ s/evil/good/gi;
  print "Answer is now $answer";
  print "\n===========================================\n\n"
};  # end while


##########################################################
#sample output
#klingon{aharris}:matcher.pl
#
#Please type in a value (or 'quit'): There's a bug in here!
#
#Your answer was There's a bug in here!
#There's a bug here!
#
#No numbers here 
# 
#Answer is now There's a bug in here!
#
#===========================================
#
#Please type in a value (or 'quit'): There are 3 bugs here!
#
#Your answer was There are 3 bugs here!
#There's a bug here!
#
#There's a number here 
# 
#No numbers here 
# 
#Answer is now There are 3 bugs here!
#
#===========================================
#
#Please type in a value (or 'quit'): There's evil afoot!  Evil eVIL EVIL.
#
#Your answer was There's evil afoot!  Evil eVIL EVIL.
#No numbers here 
# 
#Answer is now There's good afoot!  good good good.
#
#===========================================
#
#Please type in a value (or 'quit'): quit
#
#Your answer was quit
#No numbers here 
# 
#Answer is now quit
#
#===========================================
#
#klingon{aharris}3: