$word = 'Kicking';
$string = 'George Best is Alive and Kicking' ;
if ($string =~ /\b$word\b/){
    print "TRUE";
}