#!/usr/bin/perl -nw
use constant ID => 'id_tag'; # ID what you searching
use constant ID_LENGTH => length(ID);

if (substr($_, 0, ID_LENGTH) eq ID ) {
  print "found:\n$_";
  exit;
}