FNF.
use self->address_clean_up($addr, $addr) to clean up address if could.

o fix comments.
o fix loop label name.
o more correct initialization if could.
o use //o;

+ define label or rename label to more appropriate one for loop.
+ use return().
+ use qw() if could.
use //o if could.
fix comments.