#!/usr/bin/perl -w

$a=qx~grep -e '^#' $ARGV[0]~;
print "$a\n";

for ($x=1; $x<=36 ;$x++)
{
    $a=qx~grep -e T$x: -2 $ARGV[0]~;
    print "\n$a\n" if $a!~/^ *$/;
}