#!/usr/bin/perl -n s/^\s*\d+\s//;/==1FD8==/&&next;print