#!/usr/bin/perl -w

use strict;

my $string = "The quick brown fox jumps over the lazy dog";
$string =~ /(the .*? dog)/i;
print "Match: '", $1, "'";

##</code><code>##

Match: 'The quick brown fox jumps over the lazy dog'

##</code><code>##

Match: 'the lazy dog'