#!/bin/perl
open(F,"kasweb.txt");
while(<F>){
	@pairs = split(/ /,$_);
	foreach $pair (@pairs){
		@npairs = split(/\t/,$pair);
		foreach $npair (@npairs){
			$npair=~ tr/A-Z/a-z/;
			if($npair =~ /\@/){
				print "$npair\n";
			}
		}
	}
}
close(F)
