use strict;
my $filename="you_are_the_whale.doc";
my $separator=".";
unless (($where=index($filename,$seperator) == -1) {
  my $ext=substr($filename,$where);
  print $ext;
} else {
  print "No extensions in the zoo.\n"; }