perl -ne 'print if /^INSAUTH\b/'