my $line = 'Billard';
my $partialword='bill';

if ($line =~ /$partialword/i){
    print "SUBSTRING FOUND!\n";
}