#!/usr/bin/perl --
use strict;
use warnings;
use HTML::TreeBuilder;
my $html = '
cgi-programming-with-perl.zip
cgi-programming-with-perl.zip
';
{
my $tree = HTML::TreeBuilder->new();
$tree->ignore_ignorable_whitespace(0);
$tree->no_space_compacting(1);
$tree->parse( $html )->eof;
$tree->look_down( qw' _tag a href ', qr!^/! ,
sub {
$_[0]->push_content(
HTML::Element->new('b')->push_content(
$_[0]->detach_content
),
);
return;
},
);
print $tree->as_HTML('<>&',' ',{}), "\n";
}
__END__
cgi-programming-with-perl.zip
cgi-programming-with-perl.zip