open (FILE, "test.pat") or die "Can't open test.pat: $!";
open (OUT, ">TRUE_OUTPUTS") or die "Can't open TRUE_OUTPUTS: $!";
while (<FILE>) {
  if ($_ =~ m/^\s{4,}(\d)\s+$/) {print OUT "$1\n"}
}
close (FILE);
close (OUT);