#!/usr/bin/perl -w
use strict;
use File::Find;
use File::Basename;

my @dirs = ('C:/temp/testing');

find (\&wanted, @dirs);

sub wanted
{
   if (-f and  /^(\w+)\+(\w+)\+(\d+)\.asd/)  
   {
      print basename($File::Find::dir,()),"\t$1 $2 $3\n";   
   }
}
#prints on my testing setup
#abc1    CIT B 200
#def2    ISU A 300