my $last= $string =~ /.*(PATTERN)/s;