Shell Programming and Scripting

m/^index(CSF|TAS)([0-9a-zA-Z]+)\.([a-zA-Z][a-zA-Z][a-zA-Z])$/i

#!/usr/bin/perl


my $directory = '/devl/pcw/ndm/statement/csf_retail/image/';

    opendir (DIR, $directory) or die $!;
while (my $file = readdir(DIR)) {

        if ( $file =~ m/^index(CSF|TAS)([0-9a-zA-Z]+)\.([a-zA-Z][a-zA-Z][a-zA-Z])$/i )
        {
        print "Extractor Parser: index file found: $file, master file to search for is: master$1$2.$3\n";

        if ( -e "master$1$2.$3" ) {
                print "File Exists!\n";
        }
        else
        {
        print "File not matched\n";
        }
        }
        }