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

my $str = 'false';

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