If i understand you right than maybe this:

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

if ( m/$search_str/ ) {

    $check = $_;
}
[download]

Note: that there is no need to write

$_ =~ m/sometext/;
[download]

$_ is used by default.