BEGIN      { Comment="%" }
           { sub(Comment ".*","")} 
/@/        { print ; next; }
           { gsub(/[ \t]+/,"") }
/^[ \t]*$/ { next }
           { print $0 }