Tip #1 from the Basic debugging checklist: use warnings (Possible unintended interpolation of @123). Use single quotes to avoid interpolation:

my $line = 'mail: asdf@123.com';
[download]