#!/usr/bin/perl
$file = "data.txt";
open (INPUT, "< $file");
undef $/;
my $string = <INPUT>;
$string =~ s/\n//g;
while ($string =~ /A\)(.*?)B\)/g) {
        print "<a>".$1."</a>\n";
}
close (INPUT);