while(<>)
{
print "good! ", $_;
###默认处理$_
my @LINE=split(' ');
###打印结果用逗号隔开
$"=",";
print "split ", "@LINE";
print "\n";
}
while(<>)
{
print "good! ", $_;
###默认处理$_
my @LINE=split(' ');
###打印结果用逗号隔开
$"=",";
print "split ", "@LINE";
print "\n";
}