Select Code to Download

$ perl5.10.0 -E '$_="ab cd ef gh";m/(?<foo>\S+)\s+\S+\s+(?<bar>\S+)/; 
+for(keys %+){say "$_:\t$+{$_}"}; say "\$+: $+";'
bar:    ef
foo:    ab
$+: ef