warn("string matches") if $string =~ /test\("test/;