$s = 'The_quick__brown____fox';;

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

brown



fox