substr($line, 0, 1) eq 'A'