#!/usr/bin/perl -w
  use strict;
  print "\nThis example demonstrates the use of the ^ and $ positional metacharacters.\n\n";
  my $myPattern\; =\; "cape";\; my$myTestString = "escape";
  print "In '$myTestString\text{'}\; there\; is\; a\; match\; for\; the\; pattern\; \text{'}$myPattern'.\n\n" if ($myTestString\; =~\; m/$myPattern/);
  
  $myPattern\; =\; "^cape";\; print\; "When\; the\; pattern\; is\; \text{'}$myPattern' there is no match for '$myTestString\text{'}.\backslash n\backslash n"\; if\; ($myTestString !~ m/$myPattern/);$myPattern = "cape$";
  print "But there is a match for '$myTestString\text{'}\; when\; the\; pattern\; is\; \text{'}$myPattern'.\n\n" if ($myTestString\; =~\; m/$myPattern/);