`perl makedb.pl > testout.txt`;
	sleep 1 while ( !(-e "testout.txt") );
	use File::Copy;
copy("testout.txt", "testout2.txt") or die "File cannot be copied.";
$file = "testout.txt";
unlink($file);
	{
  local $/=undef;
  open FILE, "testout2.txt" or die "Couldn't open file: $!";
  binmode FILE;
  $content = <FILE>;
  close FILE;
}
# URL that generated this code:
# http://txt2re.com/index.php3?s=[3418]./img10_small.bmp&7

$txt=$content;

$re1='.*?';	# Non-greedy match on filler
$re2='(\\d+)';	# Integer Number 1

$re=$re1.$re2;
if ($txt =~ m/$re/is)
{
    $int1=$1;
    
    print "http://www.godskingsandheroes.info/stamps/seek.cgi?id=$int1";

}
#-----
# Paste the code into a new perl file. Then in Unix:
# $ perl x.pl 
#-----