shell$ perl -e 'my $input = <>; chomp($input);if (length($input)) { print q(length) }; if (defined($input)) { print q(defined) };

##</code><code>##

if($decision eq "to be"){print "Romeo is"}
else{print "Romeo is not"}

##</code><code>##

$dec eq "to be" ? print "Romeo is" : print "Romeo is not";

##</code><code>##

shell$ perl -e 'my $input=<>; 
         chomp $input; 
         print q(Romeo ); 
         $input ? print q(is ) : print q(is not ); 
print qq(\ntaking ),length($input),qq( hours to decide!\n);

##</code><code>##

shell$ perl -e 'my $input;  # not yet defined 
         print q(Romeo );
  #test for the scalar to be not defined to be true 
  !defined $input ? print q(undefined ) :
         $input ? print q(is ) : print q(is not ); 
print qq(\n taking ),length($input),qq( hours to decide!\n);