#!/usr/local/bin/perl5 -w


open(MYKOREA, "korea_section2.htm");
open (OUTPUT,  ">korea1form.txt");

$mycount = 0;

while(<MYKOREA>) {

$line = $_;

if(($line =~ m/<a/) || ($line =~ m/<!--/)) {

print OUTPUT "<option value = \"$line\"></option>\n";

	}

}