Specifying Patterns (Cont.)

$test = "You have new mail -- 5-24-99";

if ($test =~ /^You\s.+\d+-\d+-\d+/ ) {

print "The mail has arrived."; }

if ($test =~

You

\d+

)

{ print "The mail has arrived."; }