#!/usr/bin/perl
use diagnostics;

while (<>) {
  if (/TEXT;\p{Space}* \n LAYER 13[1-7];\n TEXTTYPE\p{Space}* 0;\n .* STRING/sxm) {
        print $1;
  }else{  
        print "not found!\n";
  }       
}