#Replace / with \
    (my $fn = $File::Find::name) =~ tr#/#\\#;
    #Replace gpfs_data with nas\rdds
    $fn =~ s/gpfs_data/nas\\rdds/;
    #Push into the @allpathlisting array any paths matching the pattern.
    push @allpathlisting, $fn if /[IPDLMY]\d{8}$/; 
    # How big is it?
    my $fsize = (stat($fn))[7];