$  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;'
Helloworld
test.
All_of_this_is_OK.
12345
$