in reply to Re^2: Reg exp questions
in thread Reg exp questions

$str =~ s/[\h]+/_/g;

See Matching repetitions

In Section Seekers of Perl Wisdom