while(){ $_ .= '-- (Unknown) ' unless /--/; s/^\s+//; s/\s+$/\n/; s/\s*--\s*/\t/; print; }