
while (<>) {
  # $ here means `only at the end'.
  if ($_ =~ /c.t$/) {   # By the way, this is a comment
    print "That matches.\n";
  }
}

