sub thing {
    my $string = shift;
    my @f = split /|/, $string;
    $f[2] = $f[4] + 5;
    return @f;
}