perl判断字符串包含

perl中没有判断字符串包含的函数，可以用正则表达式来实现这个功能，下面代码判断$str1是否包含$str2。

if($str1 =~ /$str2/) {
    ...
}