my @numbers = unpack '(a4)*', $string;; ## Requires 5.8.x

sub fetchOne {
    my $index = shift;
    return $numbers[ $index ];
}