my $var = 'turtle';
my @list = ("jumping $var");
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");