#!/usr/bin/perl
$_=join"",<>;
tr/\r//d;
while (m{\s*(<!--.*?-->|<.*?>|[^<\r?\n]+)\s*}sg) {
    for ($x=$1) {
        tr/\n/ /;
        s/\s+$//;
        print "$_\n";
    }
}