Select Code to Download

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

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