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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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