my %tldgif =
   (
       '.com' => ['commercetld.gif', $comwidth],
       '.org' => ['organisationtld.gif', $orgwidth],
       '.net' => ['telcotld.gif', $netwidth],
       '.us'  => ['usatld.gif', $uswidth],
       '.uk'  => ['gbtld.gif', $ukwidth],
       '.au'  => ['aussietld.gif', $auwidth],
   );

  sub encode_email_address {
    my ($addy) = @_;  my $tld = "";
    for (keys %tldgif) {
        if ($addy =~ /$_$/) {
           $tld = "<img src=\"$tldgif{$_}[0]\" 
                alt=\"[$tldgif{$_}[0]]\"
                height=\"$tldheight\"
                width=\"$tldgif{$_}[1]\"";
           $addy =~ s/$_$//;
        }
    }
    use HTML::Entities;
    my $charstoencode = join '',
      ('A'..'Z','a'..'z','<>"&@',0..9);
    return (encode_entities($input, $charstoencode).$tld);
  }


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/