@FN = split(/\=/, $LINE);
                               push(@FILE_NAME, @FN[1]);
                               foreach my $FN_SPLIT (@FILE_NAME) {
                                   chomp $FN_SPLIT;
                                   print "This is the fn_split variabl
+e: $FN_SPLIT\n\n";
                                   find (
                                         sub {
                                             my $FOUND_FILE = $_;
                                             chomp $FOUND_FILE;
                                             print "This is the FOUND_
+FILE variable: $FOUND_FILE\n\n";
                                             if ( $FOUND_FILE =~ /($FN
+_SPLIT)/ ) {
                                                 print "==============
+==================================================\n";
                                                 print "MATCH MATCH MA
+TCH $FN_SPLIT : $FOUND_FILE MATCH MATCH MATCH\n";
                                                 print "==============
+==================================================\n";
                                             }
                                             else {
                                                 print "$FOUND_FILE do
+es not equal: $FN_SPLIT\n\n";
                                             }
                                         },
                                         $SEARCH_DIR
                                   );
                               }
[download]

This is the fn_split variable: 08ptr00
This is the FOUND_FILE varible: .
. does not equal: 08ptr00


This is the fn_split variable: 08r2t00
This is the FOUND_FILE varible: 08r3t00
08r3t00 does not equal: 08ptr00


This is the fn_split variable: 08ptr00
This is the FOUND_FILE varible: 08ptr00
08ptr00 does not equal: 08ptr00
[download]

Five problems unrelated to your question:

• Don't you have warnings turned on!? @FN[1] issues "Scalar value @FN[1] better written as $FN[1]".
• Get rid of chomp $FOUND_FILE;. $FOUND_FILE contains a file name, not a filename followed by a newline.
• $FN_SPLIT doesn't contain a regexp pattern, so /($FN_SPLIT)/ should be /(\Q$FN_SPLIT\E)/.
• The captures in the regexp pattern are a waste of resource. /(\Q$FN_SPLIT\E)/ should be /\Q$FN_SPLIT\E/.
• Finally, the regexp pattern doesn't check for equality. For that, you'd want $FOUND_FILE =~ /^\Q$FN_SPLIT\E\z/ or better yet $FOUND_FILE eq $FN_SPLIT.

Try using

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Terse = 1;
print("FOUND_FILE: ", Dumper($FOUND_FILE), "\n");
print("FN_SPLIT:   ", Dumper($FN_SPLIT  ), "\n");
[download]

There's probably leading or trailing spaces.

Thanks for the reply/help. After adding the code above and printing the output after the name there is a \r is that a return? How/what is the best way to fix that? Thanks again for all the help.

08ptr00\r



-------------RESULTS--------------
FN_SPLIT: 08ptr00/r
FOUND_FILE: : 08r3t00
[download]