#!/perl/bin

open (In,"tascomod.log") or die ("an not open file at the moment");
open (Out, "tasmodtypfinrpt.txt") or die ("cannot open output file maybe you sho
uld create one");

print "\n\n Session id    Modulation \n\n";

my $firstlineFlag++;
my $sessid;
while (my $line = <IN>) {
   my @temp = split (/[=]/, $line);
   if ($temp[1] > 100) {
      print "Session id: $temp[1]  ";
   }

   if ($firstLineFlag) {
      $sessid = $temp[1];
      $firstLineFlag = '';
   }
   if ($temp[1] ne $sessid) {
      if ($temp[1] == 20) {
         print " V34\n\n "; 

}
$sessid = $temp[1];
}
}