sub foo { print "Foo!\n"; }
my $string = 'completelycoveredinchocolate';
foo if (length($string) < 6);