#!/usr/bin/perl -w
use strict;
use 5.018;
# 1157516


my $sp = ".A(~(B & C & ( D | (E & F) ))),";  

# $pin = string between . and (
if ( $sp =~ /\.(.*?)\(/ ) {
   my $pin  = $1;
   say "|-- $pin --|\n";
}
 
my $sig;
# if ( $sp =~ /\((.*?)\)/ ) {
if ( $sp =~ /\(
             (.*?\){2})
             .*/x
             ) {    
   $sig = $1;
   }

say "\t|-> $sig <-|";