#!/usr/bin/perl
use strict;
use warnings;

my $str = 'false';

if ($str == 'true') {
    print "$str=true\n";
} else {
    print "$str=false\n";
}

##</code><code>##

Argument "true" isn't numeric in numeric eq (==) at noname.pl line 7.
false=true
Argument "false" isn't numeric in numeric eq (==) at noname.pl line 7.