sub id_parse { my $string = shift; return split( /\./, $string, 2 ); }