my ( $text ) = shift;
$text =~ tr/ 0-9A-Za-z-//cd;
return $text;