#!/usr/bin/perl
open(F,"/usr/local/etc/httpd/htdocs/kasweb.txt");
while(<F>){
	($s1) = split(/.COM/,$_);
	print "$s1$2\n";

}
close(F);

