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