Select Code to Download

my $regex = join '|', map "\Q$_\E", @vals;
doSomething() if $data =~ $regex;

use Regex::PreSuf;

doSomething() if $data =~ presuf(@vals);

doSomething() if grep $data =~ /\Q$_/, @vals;