@data = ();
foreach( @dat ){
if ( $_ =~ /\n$/ ){ push( @data , $_ ); }
else{ push( @data , $_ . "\n" ); }
}

で@dataを保存