Help for this page

Select Code to Download


  1. or download this
    my $last= $string =~ /.*(PATTERN)/s;
  2. or download this
    my $last= ( $string =~ /(PATTERN)/g )[-1];
  3. or download this
    my $last= $string =~ /.*(PATTERN)/s ? $1 : undef;
# or
my( $last )= $string =~ /.*(PATTERN)/sg;