$re = fuzzy($string);
if($value =~ /^($re)/) { ... }