use strict; use warnings; while(<>){ print and next if /^\d+\s/; chomp; print if /^([A-Z]+|[.]+)$/; print "\n$_" if /^S+[.]*$/; print "\n" if m|^//$|; }