use strict;
my $string = "Billiard";

if (index($string,'Bill') > -1) {
   print "found it!\n";
}