
while (<>) {
  if ($_ =~ /c.t/) {
    print "That matches.\n";
  }
}

