my ($last) = (`grep pat file`)[1] =~ /^.*(pat)/;