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