#!/usr/bin/perl
open(F,"baby.txt");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10) = split(/.COM/,$_);
	print "$s1\n";
}
close(F);

