@matches = "hello awesome" =~ /(el).*(om)/;
print pop @awesome;

##</code><code>##

prototype "CORE::pop"; # => ;\@

##</code><code>##

print ( ( "hello awesome" =~ /(el).*(om)/ )[-1] );

##</code><code>##

Type of arg 1 to pop must be array (not list assignment) at -e line 1, near "/(el).*(om)/)"

##</code><code>##

$ perl -e '( my @a = (1) ) = (2); print "@a\n";'
2