--- 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:</h5>", " min"));
-   unless ($runtime =~ /^-?\d/) {
-      $runtime = trim(parseBetween($response, "USA:", " min"));
+   my $rawruntime = trim(parseBetween($response, ">Runtime:</h5>", "</div>"));
+   my $runtime = trim(parseBetween($rawruntime, "", " min"));
+   for my $country (@countries)
+   {
+      last if ($runtime =~ /^-?\d/) ;
+      $runtime = trim(parseBetween($rawruntime, "$country:", " min"));
    }
 
    # parse cast 
