c:\@Work\Perl\monks>perl -wMstrict -le
"chomp(my $string_to_find = <STDIN>);
 ;;
 my @array_to_search = qw(Foo whathiddenever Bar 12hidden456);
 ;;
 for my $s (@array_to_search) {
   print qq{'$s' has '$string_to_find'} if $s =~ $string_to_find;
   }
"
hidden
'whathiddenever' has 'hidden'
'12hidden456' has 'hidden'