$line =~ s/\<$//; # Remove < $line .= '

' if $f eq 'NEW'; # Add

for NEW blocks only