#!/usr/bin/env perl

while ( <> ) {
  if ( $_ =~ /\s*0?[0-5]\s*0?[0-9A-Fa-f]\s*0?[0-9ABab]\s*0?[0-9]\s*0?[0-9]\s*0?[0-8]\s*0?[0-9ABab]\s*0?[0-9A-Fa-f]\s*0?[0-9A-Da-d]\s*0?[0-7]\s*/ )
  { 
#    printf( "valid panose: %s", $_ );
  }
  else
  {
    printf( "invalid panose: %s", $_ );
  }
}
