#!/usr/local/lib/perl5

while(<>){
    $CurLine = $_;
    if ($CurLine =~ /SL:/){
	print $CurLine;
    }
    elsif($CurLine =~ /TL:/){
	print $CurLine . "\n";
    }
}