このプログラムを実行したとき、プログラムを終了するまでメモリが開放されないため、
容量の大きいページを開いたときに、大量のメモリ使ったままになってしまい不便です、
メモリを開放させる方法を教えて下さい、お願いします。
undefしてもスコープを外してもダメでした

sub hoge{
my $ua = LWP::UserAgent->new;
my $res = $ua->get("$url");

$res = $res->content;
$res =~ /hoge(.+)hoge/;

undef $ua;
undef $res;

return $1;
}