my $name = NAME;
if ($input =~ /$name/) { ... }