how do you do string substitution in perl ?

[Darxus <darxus@Op.Net>]

Okay, say I have a string substitution list, that includes, 

":)" "smile"
"rtfm" "read the fucking manual"

And I have a string that says

"rtfm you fool :)"

And I want to have the above string and the above table to output:

"read the fucking manul you fool smile"

So how do I do that in perl ? 
________________________________________________________________________
***PGP fingerprint = D5 EB F8 E7 64 55 CF 91  C2 4F E0 4D 18 B6 7C 27***
               darxus@op.net / http://www.op.net/~darxus 
                           You do not exist.


--
To unsubscribe, send a message with the word 'unsubscribe' in the subject
or body of your message to speech-request@lists.nothinbut.net