my $last= ( $string =~ /(PATTERN)/g )[-1];