What's the simplest way to do the following in perl:

Take as input a file.  Search for a line containing a particular string.
Then append to that line.

Thank you.
-- 
Amy Tanner
amy at real-time.com
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 524 bytes
Desc: not available
Url : http://shadowknight.real-time.com/pipermail/tclug-list/attachments/20020415/71a19f06/attachment.pgp