[root@master perl]# cat 4.pl 
$data = "this>";
#local $/ = ">";
chomp($data);
print "\$data is $data\n";

[root@master perl]# perl 4.pl 
$data is this>


[root@master perl]# cat 4.pl 
$data = "this>";
local $/ = ">";
chomp($data);
print "\$data is $data\n";
[root@master perl]# perl 4.pl 
$data is this

默认值为“\n". perl中”行“的概念就由$/决定。