FEATURE              /group=" "
	             /translation="MMSKLGVLLT ICLLLFPLTA VQLDGDQPAD LPALRTQDIA
		     TDHSPWFDPV KRCCSRYCYI CIPCCPN"
                     /disulfide="9,19"
                     /disulfide="13,24"
                     /hydroxylation="10"
                     /hydroxylation="11"
                     /post_trans_mod="

##</code><code>##

Input:  
                     /disulfide="13,24"\r\n
                     /hydroxylation="10"   \r\n 
                     /hydroxylation="11"\r\n
Output:
Disulfide       "13,24"
Hydroxylation   "10"   Hydroxylation    "11" 

Desired output:
Disulfide       "13,24"
Hydroxylation   "10"   
Hydroxylation    "11" 

##</code><code>##

#!/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";