$s = 'The_quick__brown____fox';;

print for split /_/, $s;;
The
quick

brown



fox

##</code><code>##

print for split /_+/, $s;;
The
quick
brown
fox

##</code><code>##

print for split / /, '    the quick  brown   fox     ';;




the
quick

brown


fox
print for split ' ', '     the quick  brown   fox     ';;
the
quick
brown
fox