Perl - [ Length ]

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

my $collor = 'blue';

print "blue\n" if length($collor) eq 4;

resul

$perl  blog.pl
blue