my( $first )= $message =~ /^\s*(.{1,12}\s|.{0,12})/;