my $input = do {local %/; <AA>;};