my @files;
foreach my $f (glob( "P007201031.*" ) ) {
  my ($basename, $path, $ext ) = fileparse ( $f, "\..+" );
  next if $ext =~ /(JPL|a00)$/;
  push( @files, $f ); 
}