open(CP,"<cpsFile.log")
while(<CP>)
{   
	my $line= $_;
	if($line =~ m{<FXSlim} .. m{</FXSlim>}){
	   $soapLine.=$_;
}
print TRADE "$soapLine";