.dout_sar ( dout_sar ) , .dcoc_status ( dcoc_status ) ,     .sdm_yout_i ( {sdm_yout_i[1] , n145 } ) , .sdm_yout_q ( sdm_yout_q ) , 
 

##</code><code>##

 #!/usr/bin/perl
use 5.010;
use strict;
use warnings;

my $port_name = 'sdm_yout_i[1]';
open my $fh,         "tt.txt"     or die $!;
while (<$fh>)
{
        if  ($_ =~ /\.([0-9a-z_]*?) \(.*?${port_name} .*?,/) {
                print '$port_name = ' ; say $port_name;
                print 'cell name = ' ; say $1;
        }
        
}