Rewrite bin/addr and bin/line in Perl