#!/usr/bin/perl
use strict;
use warnings;

my $file = "data.txt";
open (INPUT, "< $file");
undef $/;
my $string = <INPUT>;
while ($string =~ /(\d+)\.\n(.+?)A\)(.+?)B\)(.+?)C\)(.+?)D\)(.+?)(\n\n|$)/sg) {
    my @captures = ($1, $2, $3, $4, $5, $6);
    foreach (@captures) {
        s/\n//g;
    }
    print "<QN>$captures[0]</QN>\n";
    print "<QQ>$captures[1]</QQ>\n";
    print "<Aa>$captures[2]</Aa>\n";
    print "<Ab>$captures[3]</Ab>\n";
    print "<Ac>$captures[4]</Ac>\n";
    print "<Ad>$captures[5]</Ad>\n";
}
close (INPUT);