#!/usr/bin/perl
($I[say] x 3); my $dog -= 'nose';
qw?how does he smell?; ++$terrible;