--- imdb.pl.orig 2007-06-10 15:45:06.000000000 -0400 +++ imdb.pl 2007-06-27 03:19:17.000000000 -0400 @@ -31,6 +31,7 @@ use HTML::Entities; use URI::Escape; +my @countries = qw(USA UK Canada Japan); use vars qw($opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P); use Getopt::Std; @@ -185,9 +186,12 @@ } # parse movie length - my $runtime = trim(parseBetween($response, ">Runtime:", " min")); - unless ($runtime =~ /^-?\d/) { - $runtime = trim(parseBetween($response, "USA:", " min")); + my $rawruntime = trim(parseBetween($response, ">Runtime:", "")); + my $runtime = trim(parseBetween($rawruntime, "", " min")); + for my $country (@countries) + { + last if ($runtime =~ /^-?\d/) ; + $runtime = trim(parseBetween($rawruntime, "$country:", " min")); } # parse cast