sub extract {
	$_ = shift;
	my @extract_i = (split(/:/))[1,2];
	push @extract_i, $_[0];
	my $i_pstn = join('-', @extract_i);
}

##</code><code>##

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