It isn't localized in current versions so I don't think that it will be changed in future versions because of backward compatibility.

john@perl:~$ perl -e'
my $lines = qq[one
two
three
four
];
open F, "<", \$lines or die "open: $!";
while ( <F> ) {
    last if /h/;
    }
print $_;
'
three
[download]