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