Help for this page

Select Code to Download


  1. or download this
    perl -nle "$x++ if 0==$.%4;$a[$x].=$_}{for(@a){next unless/Range/;s/ST
    +/ST,/;/\s(\d+)(\w) - \d+(\w)\W/;$n=$1;for $l(qq($2)..qq($3)){print s/
    +\(.*\)/$n$l, /r}}" add-data.txt
    
    ...
    432 10TH ST, APT 5D, BROOKLYN NY 10598-6605
    
  2. or download this
    perl -MO=Deparse -nle "$x++ if 0==$.%4;$a[$x].=$_}{for(@a){next unless
    +/Range/;s/ST/ST,/;/\s(\d+)(\w) - \d+(\w)\W/;$n=$1;for $l(qq($2)..qq($
    +3)){print s/\(.*\)/$n$l, /r}}" add-data.txt
    
    ...
    -e syntax OK