#!/usr/bin/perl -w
print "enter a word \n";
$word = <STDIN>;
chomp($word);
if ( $word == "The" ) {
  print "starts with The\n";
}
else
{   print "does not start not with the\n";
}
if ( $word =~ m/The.*End/ )
{
   print "Matched The .. End\n";
}
else
{
   print "Did not match The ... End\n";
}