When your code snippet is wrapped in <code> ... </code> tags, it looks like this:

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

And that looks fine (except the /g is probably not useful in this context). So why do you think you need to generate code?