perl match =~

http://www.perl.com/pub/2000/11/begperl3.html

$user_location = "I see thirteen black cats under a ladder.";
    if ($user_location =~ /thirteen/) {
        print "Eek, bad luck!\n";
    }