if ($x = $y) {
  print "Ah jeez, I did it again.\n";
}