Help for this page
while (<DATA>) { print join " <-> ", split /#####(?=[^#])/; ... (o) <-> goatse (~) <-> ninja :o)# <-> clownwithbowtie