Limit to 3 digit codes.. in the following script.

Hi, Sapa wrote this great script to create .txt files from a list of other files. I need to limit the output files to only 3 letter.txt codes.

Any ideas Sapa?

Regards,
Geoff

#!/usr/bin/perl -w
use strict;

my $indir='/var/www/html/silicon/daily';
my $outdir='/var/www/html/silicon/codes';
my $maxdate;
       
if($ARGV[0]) {
   $maxdate=($ARGV[0]=~/^[0-3]/)?"20$ARGV[0]":"19$ARGV[0]";
}
       
my %data;
opendir(D,$indir) or die "opendir: $!";
while(my $fname=readdir(D)) {
   $fname=~/^as(\d{6})\.txt$/i or next;
   my $date=$1;
   # Convert to 8-digit date and fix Y2K problem
   $date=($date=~/^[0-3]/)?"20$date":"19$date";
   
   next if $maxdate && $maxdate < $date;
       
   open(F,"<$indir/$fname") or next;
   while(<F>) {
       chomp;
       /^(\w+)\s*,(.*)/ or next;
       my ($code,$line)=($1,$2);
       $data{$code}||=[];
       push @{$data{$code}},[$date,$line];
   }
   close(F);
}

foreach my $code (keys %data) {
   open(F,">$outdir/$code.txt") or die "open: $!";
   my @sorted=sort { $a->[0] <=> $b->[0] } @{$data{$code}};
   foreach (@sorted) {
       print F "$_->[1]\n";
   }
   close(F);
}