Select Code to Download

foreach $ruleword ( @splitrule ) { 
    if( $word =~ m/$ruleword/igs ) { 
        print "\t$word\tmatched\n"; 
    } 
}