#!/usr/bin/perl -w

use strict;

while (<DATA>) {
        if (/ORIGIN/ .. /\/\//)  {
                print;
        }
}

__DATA__
# extract of file:  
#===============

FEATURES             Location/Qualifiers    
                     /note="blah blah"   
COUNT                200
ORIGIN
        1 lots of nice info
       61 lots of nice info
      121 lots of nice info
   
//
[download]