get wieht

sub get_item_weight {
    my ($id) = @_;

    if (!exists $itemsDesc_lut{$id}) {
        message(T("Error: No description available.\n"), "info");
        return -1;
    }

    if ($itemsDesc_lut{$id} =~ /Peso:\s+\^\d\d\d\d\d\d(\d+)\^\d\d\d\d\d\d/) {
        return $1;
    } elsif ($itemsDesc_lut{$id} =~ /Peso:\s+(\d+)/) {
        return $1;
    }

    return -1;
}


$itemWeight = get_item_weight("$itemID")