I think this version would be clearer though:

print $_ . "\n" foreach ((<>) =~ /<!--(..*?)-->/g);