in reply to help needed to solve in regex

Hi
Try this 
if ( grep ( /\Q$find\E$/i , $input_line ) ) {

[download]

In Section Seekers of Perl Wisdom