#!/usr/bin/perl
use strict;
# replace dot with "."
# replace AT with @
# remove extra spaces
sub normalize {
my $email=shift @_;
$email =~ s/([a-z0-9_\-]+)([ ]+[_]*dot[_]*[ ]+)/$1./gi;
...