perl -MMail::Address -wle 'print Mail::Address->parse("1002\@151.104.234.7")'                                     
  Mail::Address=ARRAY(0x815a8bc)