#!/usr/local/bin/perl -w

while (<STDIN>)
{
    if (/ID\s+LEnd\s+REnd\s+Length/)
    {
	print $_;
    }
    if (/.+\s+\d+\s+\d+\d+/)
    {
	print substr($_, 1, length($_));
    }
}
