my $dog;
$dog !~ /nose/ and $mells = how_does_dog_smell(?);

sub how_does_dog_smell {
  return 'awful';
}