while (<LOG>){ $string .= $_;  }
@array = split(/\n/, $string);
foreach (@array) {

##</code><code>##

while (<LOG>){
  chomp;