rbaecker@test ~ $ vi local.pl
#!/usr/bin/perl

use strict;
use warnings;

$_ = 'hallo';

print;

while( local $_ = <DATA> ){ chomp }

print;

__END__
test
rbaecker@test ~ $ perl local.pl
hallohallo