#!/usr/bin/perl -w
use strict;

#initialize all the variable, initialize flags to 0 and line to ''
my $last;
my $file1="$ARGV[0]";
my $result=">".$ARGV[1];   
my $flag=0;
my $templine='';

open(INFO1,$file1) or die "Can't open $file1.\n";   
open(OUT,$result) or die "Can't open $result.\n";  

foreach(<INFO1>)
{
     if(/\s*\t*\s*\/(.*)=(.*)\s*\r/){
        my $feature=$1;
        my $value=$2;
        if(($value !~ /" "/) && ($value !~ /""/)){
            print OUT ucfirst($feature),"\t$value";
            $last=chop($value);
            if($last eq "\""){ #if last element="
                print OUT "\n";
                $flag=0; }
            else {
                $flag=1; }
           }
        }      
    elsif(/\s*(.*)\s*\r/ && $flag==1){
        $templine=$1;
        print OUT " $1";
        $last=chop($templine);
        if($last eq '"'){
            print OUT "\n";
            $flag=0;
        }
    }                   
}
close(INFO1) or die "Can't close $file1.\n";  
close(OUT) or die "Can't open $result.\n";