my @search_list = qw( Perl PHP Ruby );
my $search_str = join( "|", @search_list );

if ( m/$search_str/ ) {

    $check = $_;
}