#!/usr/bin/perl
use strict;
use warnings;

#885479

my $string = " cat mat rat pat\n"; 
if ($string =~ /\bcat/) {
	 print "yes\n"; 
	 } else {
	 print "no\n"; 
}