Select Code to Download

sub squote {
   my $s_pos = pos;
...
      return 0;
   }
}

sub squote {
   my $s_pos = pos;
...
      }
   }
}

sub ident {
   my $s_pos = pos;
...
      return 0;
   }
}

sub ident {
   my $s_pos = pos;
...
      }
   }
}