use strict;
use warnings;

use Test::More tests => 1;

my $tag  = "A quick-brown fox or 3? %&)( \\\n\n";
my $want = 'a quick-brown fox or 3  ';

$tag = lc $tag;
$tag =~ y/a-z0-9 _+.-//cd;

is $tag, $want;