Extraer texto entre strings en Perl

use strict;
use warnings;
use URI;
use URI::QueryParam;
my $u = URI->new('http://www.google.com/search?size=1&make=BMW&model=2000'); print $u->query_param('make');