Select Code to Download

#!/usr/bin/perl -nw
use constant ID => 'id_tag'; # ID what you searching
...
  print "found:\n$_";
  exit;
}

# [id_tag] [byte offset]
id_tag1 0
id_tag2 123
id_tag3 463
...