my $_ = "See on üks täppidega lause!";
for (split //) {print if /\p{IsAlpha}/}
say "";
$_ =~ s/\P{IsAlpha}//g;
say;
__END__
Seeonükstäppidegalause
Seeonükstäppidegalause