#!perl
use warnings;
use strict;
use IO::File;

my @data;
{
  my $fh = new IO::File "<testwrap.txt" or die "Can't open: $!";
  @data = <$fh>;
}

my $line="";
my @unwrappeddata;
foreach (@data) {
  chomp $_;
  if (m/^[^\s=]+\s+=\s+/) {
    $line .= "\n";
    push @unwrappeddata, $line;
    print $line;
    $line = $_;
  } else {
    $line .= $_;
  }
}
$line .= "\n";
push @unwrappeddata, $line;
print $line;