while(<>) {
  if(/^\.subckt/../^\w/) {
    print;
  }
}