Xref: utzoo comp.lang.perl:3439 comp.mail.sendmail:2566 comp.mail.misc:4636 comp.sources.wanted:14641
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!snorkelwacker.mit.edu!ira.uka.de!smurf!cat!orfeo!peter
From: peter@radig.de (Peter Radig)
Newsgroups: comp.lang.perl,comp.mail.sendmail,comp.mail.misc,comp.sources.wanted
Subject: Address conversation for PERL wanted
Keywords: perl rfc822 address
Message-ID: <1990Dec29.151813.2319@orfeo.radig.de>
Date: 29 Dec 90 15:18:13 GMT
Sender: peter@orfeo.radig.de (Peter Radig)
Organization: Peter Radig EDV-Beratung, Frankfurt, West Germany
Lines: 14
Phone: +49 69 746972
Address: Palmengartenstr. 1, D-6000 Frankfurt am Main 1, Germany

I am searching for a conversion routine written in PERL which does
the following:

	what%ever!some,@pervert:mail%address-style@may!ever%exist

		--->

	what!ever!some!pervert!mail!address-style!may!ever!exist

or: convert some pervert mail address style to bang style (I know that
the example above is not correct on the rhs, please forgive my laziness).

Thanks a lot,
Peter