my $line = 'abc.xyz@lmnop.com';
print $line,"\n";
$line=~s/($1)@($2)/$1\t$2/g;
print "\n line is $line";