I don't know where your problem is. This piece of code works:

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

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

Bye
 PetaMem