while (my $matchingFiles = glob("*.rtsd001")) {
   ...
}

##</code><code>##

               while (<UNMODIFIED>) {
                    /STRUC20/ and print MODIFIED $_;
               }