#!usr/bin/perl -w
open(IN,'<transaction');
open(RE,'>>res');
while(<IN>)
{
$a=split(/T/);
print RE $a;}
close IN;
close RE;