#!/usr/bin/perl -- use strict; use warnings; use HTML::TreeBuilder; my $html = ' bob '; my $tree = HTML::TreeBuilder->new(); $tree->parse( $html ); print $tree->look_down('style',qr/\Q128px;width:160px\E/i)->dump; __END__ @0.1.0 "bob"