$_ = "foo<span>bar</span>bazqux<span>quux</span>";

my $c=0;
s( (<span>|</span>|(.)) ) {
    defined $2 ? $1 . (++$c % 4 ? '' : "\n") : $1;
}sxge;

print;
print "\n";