regex example

#!/usr/bin/perl

use strict;

my $string = "<cartitems>blah blah blah cartitems</cartitems>";

if ( $string =~ m/(^<cartitems>)(.*)(<\/cartitems>$)/ ) {
  print "Found: \n 1: $1 \n 2: $2 \n 3: $3 \n";
}
else { print "Found nothing :( \n" }