my $flag = 0;
my $fg =0;
my $count =0;

$a1 = '154216722';

while ($line = <>) {
        if ($line =~ /\<BEGIN Transaction\>/){
                $flag =1;
        }
        if ($flag == 1){
                push(@temp, $line);
        }
        if ($line =~ /\<\/END Transaction\>/){
                $flag =0;
        }

        if ($flag == 0){
                foreach $tmp (@temp){
                        if ($tmp =~ /$a1/)
                        {
                            $fg = 1;
                            $count++;
                        }
                }
                if ($fg ==1)
                {
                    print @temp;
                    $fg =0;
                }
                $flag =5;
                $#temp = -1;
        }
}