while(<>){ 
    chomp; 
    if ( index($_ , "[") != -1  ){ 
        @s = split /\]/; 
        @s1 = split /\[/,$s[0];         
        if ( $s1[-1] =~ /^[0-9.]+$/){ 
            print $s1[-1] ."\n"; 
        } 
    } 
}