1

my $input   = "John is Great Man!";<br>my $pattern = qr/(?:[jJ]ohn)/;<br>if ($input =~ $pattern) {<br>    print "マッチした！";<br>}<br>

1

my $input   = "John is Great Man!";<br>my $pattern = "(?:[jJ]ohn)";<br>if ($input =~ $pattern) {<br>    print "マッチした！";<br>}<br>