Re^4: How do I cut single characters out of a string

TIMTOWTDI but:

use Modern::Perl;
use Data::Dumper;

my $dispatch = {
    20   => sub { ( substr($_, 8, 1), substr($_, 5, 3) ) },
    14   => sub { ( substr($_, -6, 1), substr($_, -4, 4) ) },
    };

my $string = 'mystring123456';

if (my $code = $dispatch->{ length $string })
{
    local $_ = $string;
    my @get = $code->();
    print Dumper \@get;
}
[download]

Comment on Re^4: How do I cut single characters out of a string Download Code