if ($val =~ /^[ ]+Pin:[ ]*([^\.]*)\.([^ ]*)[ ]*out/) {
            $cellname = $mod->find_cell($1);
            $pin_connected = $2;
          }