#!/usr/bin/perl

use strict;
use warnings;

if (0 == "0 but true") {
  print "but true\n";
}