#!/usr/local/bin/perl

$alphabet="abcdefghijklmnopqrstuvwxyz";
if ( $alphabet =~ /(hi).*(stu)/ ) {
   print "          1111111111222222\n";
   print "01234567890123456789012345\n";
   print "$alphabet matched /(hi).*(stu)/ of course.\n\n";

   print "Before the match =>$`<=\n";
   print "The entire match =>$&<=\n";
   print " After the match =>$'<=\n\n";

   print "The entire match began at \$-[0]=$-[0]  and ended at \$+[0]=$+[0].\n";
   print "The  first match began at \$-[1]=$-[1]  and ended at \$+[1]=$+[1].\n";
   print "The second match began at \$-[2]=$-[2] and ended at \$+[2]=$+[2].\n";
   print "The  third match began at \$-[3]=$-[3]   and ended at \$+[3]=$+[3].\n";
} else {
   print "Did not match?  Impossible!\n";
}