my @arr = ();
while (<PIR>)
{
    chomp;
    if( /^ENTRY/ ) { $entry = $_ }
    elsif ( /^(TITLE)\s+(\S.*)/ ) { $title = "$1\n\t $2" }
    elsif ( /^(ORGANISM)\s+(\S.*)/ ) { $org = "$1\n\t $2" }
    elsif ( /^ACCESSIONS/ ) { $acc = $_ }
    else {
        push @arr, $_;
    }
}

print "@arr\n";

##</code><code>##

# simplified version: ignore header stuff:

my %hash;
while(<PIR>)
{
    chomp;
    $hash{$_} = undef unless /^(?:ENTRY|TITLE|ORGANISM|ACCESSIONS)\s/;
}

print join " ", keys %hash, "\n";