#!/usr/bin/perl
open(F,"baby4.txt");
while(<F>){
	($s1) = split(/.COM/,$_);
	print "webmaster@$s1\n";
}
close(F);

