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

##</code><code>##

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