$ perl t.pl
House# across the street is 1142
DEBUG: Original house number '1141'

House# across the street is 120000000001
DEBUG: Original house number '120000000000'