my $file = do { local $/; <DATA> };
$file =~ s/\n(?!A\d+\.)/ /g;
$file .= "\n";
print $file;

__DATA__
A6.8.5 This is
an example
sentence
A6.8.6 This is
an example
sentence