#!/usr/bin/perl

use strict;

my ($file, $dir);
#my @files = <RESP\.??\.*>;
my @files;
my $letter;

foreach my $letter ( 'A' .. 'Z' , '0' .. '9' ) {
  @files = <RESP\.??\.$letter*>;

  foreach $file ( @files ) {
    $file =~ /RESP\.(..)\.(\w{3,})\.\./;
    $dir = "$1." . "$2";
    -d $dir or (mkdir($dir, 0755) and print "Making directory $dir\n");
    -e "$dir/$file" and print "Destroying file $dir/$file\n";
    rename $file, "$dir/$file";
  }
}
0;