if ( /^(\d+?)/ ) {
    my $len = $1;
    if ( /^$len(.{$len})/ ) {
        my $value = $1;
        # do something with $len and $value
    }
}