sub extract {
    return join('-', (split(/:/, $_[0], 4))[1,2], $_[1]);
}