sub property {
  my $loc = ( split /,\s+/, $_[ 0 ] )[ 1 ];
  $loc =~ /^S\d+H(\d+)$/;
  return $1;
}