Help for this page
while (<DATA>) { next unless /^~/;# Skip line unless it starts with ~ ... { print; }
pos($_) = -1; s/(^~ | \G) .*? \K _ /+/gx;