$string =~ s/\.//;
$string =~ s/e/crap//i;