note
cciulla
<p>
I'd be tempted to do it thusly, <strike>as it appears that you're throwng away the value part</strike>:
<code>
while (<config>) {
chomp;
my ($key, $value) = /^(.{1,13})(.+)$/;
$lookup{$key} = $value;
}
</code>
...or, am I missing something?
</p>
<p>
<b>Update: </b> <code>perldoc -f substr</code> has shown me the light.
<br>
<b>Update the Second: </b> As has [hardburn].
</p>
<p>
Cē
</p>
266924
266924