$str =~ s/[^\p{Latin}\s]//g;

##</code><code>##

$str =~ s/^\p{Latin}\s//g;