#!/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;