CGIで特定文字列を含む判定

if ($email =~ /hotmail/)
{
    print "含まれています。";
}
else
{
    print "含まれていません。";
}