my $last = (map {/^.*(pat)/} <>)[-1];