111 234 111 abc #### open(CP,") { my $line= $_; if($line =~ m{}){ $soapLine.=$_; } print TRADE "$soapLine";