#!/usr/bin/env perl

use strict;
use warnings;

my $fh = \*DATA;

while(<$fh>) {
    chomp;
    print "<<<$_>>> is line $.";
    print ", and is the last line." if eof($fh);
}
continue {
    print ".\n";
}

__DATA__
line 1
line 2
line 3