Select Code to Download

sub fuzzy {
    my $string = shift;
...
}

print fuzzy('GCGAT');

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