there is a node from BooK that is 59 /e in which there is some demonstration. ;-)
but basically look for search and replace in perlretut to have a better understanding.