Hämta fel inmatning

Tjena håller på med en mail lista men jag har ett litet problem som någon duktig
perl människa kanske kan hjälpa mig med.
Jag har gjort så att man får felmedelade när man har skrivit in otillåtna tecken
så här

      if (($namn =~ /[;=<>\*\&#0124;`&\$!#\(\)\[\]\{\}:'"]/) &#0124;&#0124; 
      ($epost =~ /[;=<>\*\&#0124;`&\$!#\(\)\[\]\{\}:'"]/)){ 
      $fel; 
      }

  Jag skulle vilja att man kunde plocka ut det tecken som personen i fråga har skrivigt in fel och 
  skriva ut på en sida. 

  Typ så här. 
  Om Sune skall regga sig i min lista 
  Så skriver han såhär 

  Namn: Sune" 
  E-post:sune@sune.xxx 

  Det otillåtna tecknet är då " jag skulle då vilja ha en fuktion som gör så att den läser igenom 
  det sune har skrivigt in och plockar ut " och skriver det på en sida så att den ser ut så här. 

  Det otillåtna tecknet är " 

  Går det att göra eller? 
  //nordan

Hej
Ska ge dig ett ludigt exempel på hur du kan göra :)

Sättet är att lägga alla de otilåtna teckna i en array. Sedan gör du en loop som går igenom varje element (tecken) i arrayen och kollar satserna $email och $namn om det aktuella elementet (tecknet) finns där. Om inte så hoppa till nästa element (tecken) i arrayen. När ett otillåtet tecken hittas så skriver du bara ut det aktuella array elementet (tecknet).

Det är det enda lösningen jag kan komma upp med.

------------------
"Den sanna kunskapen är erfarenhet" - Albert Ensten