sub search_equivalent{
   #do stuff here and return your equivalent pattern
   return $equivalent;
}

my $equiv = search_equivalent();
if ($thisstring =~ m/$equiv/){
   ....
}