use IO::Handle;
while(my $line= <DATA>) {
    my $n= chomp($line);
    print "$n($line)\n";
}
seek(DATA,0,0);
print $/;
while(my $line= DATA->getline()) {
    my $n= chomp($line);
    print "$n($line)\n";
}
__DATA__
A line
0