my $line;
while ( ($line) = <DATA> ) {
    print "line: $line";
}
__DATA__
line 1
line 2
line 3