for my $chunk ( $dom->find('s')->each ) {
	my @values = split('\n', $chunk);
		foreach $line (@values) {
			do stuff on every line
		}
}