use warnings; use strict; my $str = 'dfsldjf(djfls)jfslfk kfds\nfjsldf'; $str =~ s/[\s()]/_/g; $str =~ s/\\n/ /g; print "$str\n"; __END__ dfsldjf_djfls_jfslfk_kfds fjsldf