#!/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;
...
Useful links : Invite Your Friends | Recover password | Advertising in CM | Join Carding Class
Type: Posts; User: Cyb3r_H4ck3r
#!/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;
...