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);