$_ = q{D3E' C@$o*r(-A[].Mick7};

s/[^A-Za-z\d\s\-.\']//g;

print "$_\n";