http://www.perlmonks.org?node_id=266929


in reply to Slurping BIG files into Hashes

I'd be tempted to do it thusly, as it appears that you're throwng away the value part: 

while (<config>) {
    chomp;
    my ($key, $value) = /^(.{1,13})(.+)$/;
    $lookup{$key} = $value;
}

[download]
...or, am I missing something?

Update: perldoc -f substr has shown me the light.
Update the Second: As has hardburn.

Cē

In Section Seekers of Perl Wisdom