Select Code to Download

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

$ perl -we 'print pop ("hello awesome" =~ /(el).*(om)/);'
Type of arg 1 to pop must be array (not pattern match (m//)) at -e lin
+e 1, near "/(el).*(om)/)"
Execution of -e aborted due to compilation errors.

$ perl -we 'print pop (@matches = "hello awesome" =~ /(el).*(om)/);'
Type of arg 1 to pop must be array (not list assignment) at -e line 1,
+ near "/(el).*(om)/)"
Execution of -e aborted due to compilation errors.

$ perl -we 'print ${["hello awesome" =~ /(el).*(om)/]}[1];'
om