i read a cgi file from webpage, and hope can download it email adress, but unfortune the page that i download had use an encodeemail method, so i can't read the result file well, this is my program

#!C:\Perl\bin\perl.exe -w
use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://bbs.wenjuantong.com";
open(OUT, ">>respone.txt") or die("Cannot open out file:$!");

my $agent = new LWP::UserAgent();
my $request = new HTTP::Request('get' => $url);
   $request ->content_type('application/x-www-form-urlencoded');
   $request ->content('type=another');
   my $response = $agent ->request($request);
print(OUT $response->as_string());
print(OUT "\n");
close(OUT) or die("Cannot close out file:$!");
[download]

this is a encodeemail fuction, would you like help me write a decodeemail.

sub encodeemail{
        my ($self, $email) = CGI::self_or_CGI(@_);
        my $char = '';
        while ($email =~ /([a-z\@]{1})/is){
                $char = '&#' . ord($1) . ';';
                $email =~ s/$1/$char/sg;
        }
        return $email;
}
[download]