#!/bin/perl -w
# Regular expression examples

print "Please enter a word beginning with y or Y: ";
$answer = <STDIN>;
chop $answer; 
if ($answer =~ /^[yY].*/)  {
	print "Correct!\n";
} else {
	print "Incorrect!\n";
}

print "Please enter a two-digit number: ";
chop ($answer = <STDIN>);
if ($answer =~ /^[0-9][0-9]$/) {
        print "Correct!\n";
} else {
        print "Incorrect!\n";
}

print "Please enter a string not starting with a number: ";
chop ($answer = <STDIN>);
if ($answer =~ /^[^0-9].*/)  {
	        print "Correct!\n";
} else {
        print "Incorrect!\n";
}

print "Please enter any number: ";
chop ($answer = <STDIN>);
if ($answer =~ /^[0-9]*$/)  {
                print "Correct!\n";
} else {
        print "Incorrect!\n";
}