my $target = "[a]"; if ($string =~ m/$target/) { ... }