my $content;   
foreach(@lines){
  $content .= $_;
}
print $content;