while(<>){
    if ($_ =~ /Type:/){
	$_ =~ s/\<//g;
	$_ =~ s/\>//g;
    }
    print $_;
}