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