$str = 'abc.';
$str =~ s.\...;
print $str;