#!/usr/bin/perl

#Processar ramos inválidos não processados pelo TIGERSearch

while (<>){
    if (/(\d+)/){
	print "$1\n";
    }
}