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