#!/usr/bin/perl -wuse 5.010;my $dog='Spot';
given ($dog) { when (/o/) { say 'The name has an "o"'; continue } when (/t/) { say 'The name has an "t"'; continue } when (/d/) { say 'The name has an "d"'; continue }}