Select Code to Download

sub getgold {
    my $start= index $GoldLine, ":" + 2;
    return substr $start, length $line; #changed 'result' to 'return'
}
getgold;