while (<DATA_FILE>) {
     $str = $_ ;
    
        if ($str =~ /include/) {
            if ($str =~ /\b$file_name\b/) {
              $flag = "TRUE" ;
            }
        }
        if ($flag eq "TRUE") {
            if ($str =~ /View Name/) {
                print $str ;
                ($junk,$view_name) = split(\->\,$str) ;
                print $view_name ;
                $flag = "FALSE" ;
            }
        }
    #print "$_\n";
 }
[download]

Your OP is virtually unreadable so I don't actually know what your problem is.

The only place in the entire thread that the string 'View Name' appears is in your regex (i.e. '/View Name/'). Therefore, $str =~ /View Name/ will always be FALSE and that if block will never be entered. Perhaps that relates to whatever your problem is. Have you shown a representative sample of your data?

From the code fragment you've shown here, you're using package global variables exclusively. Perhaps that relates to your problem. For instance, there could be another global $flag elsewhere in your code.

-- Ken