Select Code to Download

my $last= ( " AB CDE FG HI JKL " =~ /( \w\w )/g )[-1];
print $last, $/;
__END__
prints " FG " (not " HI ")

my( $last )= " AB CDE FG HI JKL " =~ /.*(\w+)/sg;
print $last, $/;
__END__
prints "L" (not "JKL")

my $string= " AB CDE FG HI JKL ";
my $PATTERN= qr/(?! F)(?: \w+){1,3} /;
...
 JKL
never:
 HI JKL

my $string= reverse " AB CDE FG HI JKL ";
my $PATTERN= qr/(?: \w+){1,3}(?<!F) /;
...
print reverse($last) . $/;
__END__
prints " HI JKL " !

my $string= " AB CDE FG HI JKL ";
my $PATTERN= qr/(?! F)(?: \w+){1,3} /;
...
print $last, $/;
__END__
prints " HI JKL " !