I remember having to translate this joke into German when I was at school, so for the sake of completeness here it is in perl ...

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