Select Code to Download

my @files=("zzz.21.yy.ccc", "xxx.220.ccc" );

...
    $match="yes" if ( $name =~ /(^[a-z]{3})\.(\d{2,3})\..*\.ccc/) ;
    print "$match, $name, match1: $1, match2: $2\n";
  }

yes, zzz.21.yy.ccc, match1: zzz, match2: 21
no , xxx.220.ccc, match1: zzz, match2: 21