if ($line !~ /\b$word\b/) { ... }

##</code><code>##

substr($string,0,1) = undef;

##</code><code>##

my $str = '"hello, my name is Bob, my cell number is, 1234567890"';
$str =~ s/,[^,]*"$/"/;
print "$str\n";