my @line = grep { length > 0 } split ( /\S+/, $_ );
print "$line[0]\t$line[1]\n";

##</code><code>##

    STATUS        mandatory

##</code><code>##

STATUS    mandatory