编辑代码

#!/usr/bin/perl -w
$us ="I am tony@qq.com and you are not peter@163.com";
while($us =~/\S+\@\S+/g){    print "Hero is $&\n";}