#!/usr/local/bin/perl

@list=glob("*\.toc");

foreach $list (@list) {
	open (TMP, "$list");
	@tmp = <TMP>;
	foreach $tmp (@tmp) {
		if ($tmp =~  /[A-Z]{2}[0-9]{14}[A-Z]{3}[0-9]{2}/) {
			push @url, ("$&");
			}
		}
	}

open (OUT,  ">l7_slc_off_ids.ion");

%tmp = ();
foreach $item (@url) {
	print OUT "$item\.meta http\:\/\/glovis\.usgs\.gov\/ImgViewer\/showmetadata\.cgi\?scene_id\=$item\n" unless $tmp{$item}++;
	}