use strict;
use warnings;

my %info = map {chomp; my @parts = split '=';
    @parts == 2 && length $parts[1] ? @parts : ()
    } <DATA>;

print "$_: $info{$_}\n" for sort keys %info;

__DATA__
key=value
nokey=

##</code><code>##

key: value