Select Code to Download

$_ = "The first recorded efforts to reach Everest's summit were made b
+y British mountaineers    ";
/summit|Everest|mountain/;
print $&;  #Result is "Everest"

$_ = "The first recorded efforts to reach Everest's summit were made b
+y British mountaineers    ";
/summit(?{print "11"})|Everest(?{print "22"})|mountain(?{print "33"})/
+;
print $&;  #22Everest