Select Code to Download

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

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

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

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

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