Select Code to Download

use strict;
use warnings;
...
    $parts[-1] = $street_suf_lkup{lc $parts[-1]} if exists $street_suf
+_lkup{lc $parts[-1]};
    return "@parts";
}

123 Circle Way
123 Way Cir