my $tag = 'test text     ';
chomp $tag;
print $tag . '#';

> test text     #

##</code><code>##

$tag =  lc $tag;
$tag =~ s/[^az09 _\-\+\.]//g;