Select Code to Download

m/^(\s)?exten => (35\d\d)[^;]+;(.*)/ &&my ($extension,$name) = ($2,$3)

m/<same regex>/ && print ($2,$3);