$SEARCH= quotemeta($SEARCH);

##</code><code>##

@MATCHING = grep /^$SEARCH/i, @finfo;

##</code><code>##

@MATCHING = grep /^$SEARCH/im, @finfo;