if ($line =~ /$partialword/i) {
   # I'm assuming $partialword is 'Bill'...
   $line =~ s/Billiard/Bill/;
}