substr( $_, 34, 11 ) eq $target and print DATA $_ while <FH>