$z=~/"#String:"/;
$q=~/sa[0-9]{3}s[0-9]{2}/;
    if ($k>$z and  $q<$k) 
      {
      print "$k \n"
      };