perl : HTML::TokeParser::Simple

Code:#!/usr/bin/perl -w
use strict;
use warnings;

use Term::ANSIColor qw(:constants);
use Term::ANSIColor;
use HTML::TokeParser::Simple;
use Getopt::Std;
##############################################################
use vars qw/ $opt_h $html $sitename $url $line @lines @attr /;
getopts('h');

if ($opt_h) {
print q/
perl lynxsniff.pl <sitename.com>
Prints page source with syntax highlight.

/;
exit(0);
};

$sitename = shift or die "Usage: $0 <sitename.com>\n";
$sitename = $ARGV[0];

open(FH, "/usr/bin/lynx -source $sitename|") or die "$!\n";

while (<FH>)
{

my $html = <FH>;
my $ignore=0;

my $p = HTML::TokeParser::Simple->new(string => $html);

while ( my $token = $p->get_token ) {
if ( $token->is_start_tag ) {
my $element = $token->[1];
my @attrs = @{$token->[3]};
print qq(<),colored($element,'magenta');
foreach my $attr ( @attrs ) {
if ( $attr ne '/' && $attr ne 'script' ) {
print qq( ),colored($attr, 'cyan');
if ( defined ( $token->[2]{$attr} ) ) {
print qq(="),colored($token->[2]{$attr},'green'),qq(");
}
} else {
print qq( $attr);
}
}
print qq(>);

} elsif ( $token->is_text ) {
print colored($token->[1],'white');

} elsif ( $token->is_end_tag ) {
print qq(</),colored( $token->[1],'magenta'),qq(>);

} elsif ( $token->is_comment ) {
print colored( $token->[1],'white');

} elsif ( $token->is_declaration ) {
print colored( $token->[1],'bright_white');

} else
{
#Everything excluding scripts falls here handle as appropriate
next unless $token->is_text;
print $token->as_is;
}
}
}
close FH;hello all.

how can i syntax highlight (red) Iframes using this script?
i have tried to find solution but no luck sofar.