Select Code to Download

$line=~/$_/i&&push(@found,$_)for@keywords;

for (@keywords) {
    next unless $line =~ /$_/i;
    push @found, $_;
}

my @found = grep { $line =~ /$_/i } @keywords;