Eliminar comillas

[Agus211]

No quiero abusar, pero en la red vi un codigo que me intereso mucho para el tema de parseo de htmls, el tema es que no esta explicado, si alguien puede darme una breve explicacion le voy a estar SUPER AGRADECIDO...

$page tendria el codigo html...

$p = HTML::Parser->new(api_version => 3);
$p->handler( start => \&start_form, "tagname,self,text");
$p->parse($page) || die $!;

sub start_form {
($tagname, $self, $text) = @_;

return if $tagname ne 'form';

$self->handler(start => undef);
$self->handler(default => \&save_form, "text");
$self->handler(end => \&end_form, "tagname,self,text");

push @forms, '';
save_form($text);
}

sub save_form {
$forms[-1] .= shift;
}

sub end_form {
($tagname, $self, $text) = @_;

save_form($text);

if ($tagname eq 'form') {
$self->handler(start => \&start_form, "tagname,self,text");
$self->handler(default => undef);
$self->handler(end => undef);
}
}