use autodie;
open my $fh, "<", "file";
my $last;
while (<>) {
    $last = $1 if /^.*(pat)/;
}