elsif ($trem =~ /^Caught fatal signal /) { $cmt = "SG"; }
elsif ($trem =~ /^([A-Za-z])\S*\s+([A-Za-z])/) {
($cmt = "$1$2") =~ tr/a-z/A-Z/;
elsif ($trem =~ /^Caught fatal signal /) { $cmt = "SG"; }
elsif ($trem =~ /^([A-Za-z])\S*\s+([A-Za-z])/) {
($cmt = "$1$2") =~ tr/a-z/A-Z/;