Select Code to Download

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

    $check = $_;
}

$_ =~ m/sometext/;