$w='Appear';
$w =~ s/(\w)\1/$1/g;
print $w;
__END__
Apear