my $message     = new Mail::Internet ([<>]);
my $from        = $message->get('From');
my $subject     = $message->get('Subject');
my $received    = $message->get('Received');
my @body        = @{$message->body()};

print_help_message() if ($subject =~ /help/);

my $line="";
my @unwrappeddata;
foreach (@body) {
        chomp $_;
        next if /^#/;
        
        if (m/^[^\s=]+\s+=\s*/ || m/^\[.*\]$/) {
                $line =~ s/^#/\n#/m;
                $line .= "\n";
                push @unwrappeddata, $line;
                $line = $_;
        } else {
                $line .= $_;
        }
last if /\[end_template\]/;
}
$line .= "\n";
push @unwrappeddata, $line;