For the missing hr-tag, just test for $keyword after the 'while' loop:

     if ( $keyword )         ## Same as if ( $keyword ne "" )
     {   print "$keyword\n";
     }
[download]

Whenever I start a new project/gig, I try to think whether this is similar to something I've done before, and if it is, then I use that code or technique as the starting point. If it is totally new (very rare), I still have a bag of tricks ( subroutines ) that I copy ( use ... ) into the new work. Look at every thing you do today as something you may be able to use for the rest of your programming life.

You're lucky to have Perl, since a lot of the code I did before Perl is worthless today, but knowledge and techniques can be applied to Perl!

Good Luck!