sub id_parse {
  my $string = shift;
  my( $id, $session ) = split /\./, $string, 2;
  $id =~ tr/a-z/A-Z/;
  return( $id, $session );
}