my $original = 'KLEWREGREG-----REGREGEWD....-EWGREGERABCSHRE..----...XFGHWW';
my $copy = $original;
$copy =~ s/[-.]+//g;
if ($copy =~ /(...)XFGHWW/) {
    print "Found it: $1\n";
}