($frame_name) = $line =~ /^FRAME\s+NAME:\s+.*?[\(|\[]([A-Z]+_[A-Z]+(?:[_ A-Z 0-9]+)?)[\)|\]|\,]/;

!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $file = 'test.txt';
my @added_frames;
my $line;

{
    open my $fh, '<', $file or die "$file: $!";

    # change block separator to have one complete frame
    # read per iteration
    local $/ = "\nFRAME NAME:";

    # read the blocks
    while ( my $frame = <$fh> ) {
        next if $. == 1;    # skip the "header"

        chomp $frame;       # remove block separator

        (my $frame_name) = $line =~ /\s+([A-Z]+_[A-Z]+(?:[_ A-Z 0-9]+)?)[\)|\]|\,]/;
                
        print"\nmy frame name: $frame_name\n\n";
                
        foreach $AddedFrame(@added_frames)
        {
            if($frame_name eq $AddedFrame)
            {
                if(($line =~ /::::0x/ and $line =~ /\(/) and ($line =~ /\_FA,/ or $line =~ /\_A,/)) 
                 {
                    if($line =~ /FREI/ or $line =~ /ID2\)/) #ignore lines with "FREI" or "(ID2)"
                    {}
                                                                                                        
                    else
                    {   
                       ( $_, $line) = split(/\(/,$line);         #selects string after the opened bracket
                       ( $_, $line) = split(/\)/,$line);                 #from the selected string, selects the one before the closed bracket
                                                                                                                
                        @array = split(/, /,$line);
                        print $out_dir  $_, ";", "$array[1]\n";
                        #$countPar = $countPar +1;                         #count the number of mapping <internal variables> to <INCA variables>
                    }
                }
            }
       }


        # print the frame
        print "This is a frame:\n",
              '=' x 30, "\n",
              $frame, "\n",
              '=' x 30;
    }
    close $fh;
}