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

##</code><code>##

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

##</code><code>##

my $last= $string =~ /.*(PATTERN)/s ? $1 : undef;
# or
my( $last )= $string =~ /.*(PATTERN)/sg;