5.1. GetTagBytestoWrite
 This function returns the number of bytes taken by the Tag of the ASN object. It Scans through the BER/DER encoded String and finds the no of bytes taken by the Tag of a given ASN.1 Object.

Prototype:
 int
GetTagbytestoWrite(unsigned char *tstr,int *count)
Parameters:
*tstr Contents
of the ASN.1 Object in a string
*count a
pointer to an integer to hold the address of the variable holding the number of
bytes the tag value takes to store itself.

5.2. GetLenBytestoWrite
This function returns the no of Octets taken by the Length
field of a given ASN.1 Object. It Scans through the BER/DER encoded String and finds the no of bytes taken by the Length field of a given ASN.1 Object.
Prototype:
 int
GetLenbytestoWrite(unsigned char *pstr,int *count)
Parameters:
*pstr Contents
..

##</code><code>##

5.1. GetTagBytestoWrite
 This function returns the number of bytes taken by the Tag of the ASN object. It Scans through the BER/DER encoded String and finds the no of bytes taken by the Tag of a given ASN.1 Object.

5.2. GetLenBytestoWrite
This function returns the no of Octets taken by the Length
field of a given ASN.1 Object. It Scans through the BER/DER encoded String and finds the no of bytes taken by the Length field of a given ASN.1 Object.
..


##</code><code>##

#!/usr/bin/perl

my ($buf);

open (FILE,"./ASN_tech.htm") or die "Unable to open: $!";
$buf=join '',<FILE>;
close FILE;

$buf=~s/(\d*\.\d*\.)\s*(\w+)(.*)?(Prototype:)/print "$1 $2\n"/gem;