$ perl -E '
> @data = (
>    q{Hello, world!},
>    q{te-st%$/*.},
>    q{All_of_this_is_OK.},
>    q{!@#$%^&*()12345},
>    );
> say for map { tr{A-Za-z0-9_. -}{}cd; $_ } @data;'
Hello world
te-st.
All_of_this_is_OK.
12345
$