#!/usr/bin/perl
use HTML::TokeParser;
my $content = <Budget
$25,000,000 (estimated)
Opening Weekend
$727,327 (USA) (25 September 1994) (33 Screens)
Gross
$28,341,469 (USA) (5 August 2012)
£2,344,349 (UK) (18 May 1995)
£1,732,123 (UK) (16 April 1995)
$58,500,000 (Worldwide)
$555,480 (Belgium)
ESP 637,291,985 (Spain)
Admissions
82,890 (Belgium)
163,594 (France) (28 March 1995)
410,811 (Germany) (31 December 1995)
1,245,604 (Spain)
Filming Dates
16 June 1993 - 10 September 1993
HTML
my $description = "";
my $parser = HTML::TokeParser->new(\$content) || die "Can't open: $!";
while (my $token = $tp->get_tag("h5")) {
my $text = $parser->get_text();
last if $text =~ /budget/i;
}