Select Code to Download

#!/usr/bin/perl -wT

...
100 75
100 75
120 180

$ ./window.pl
%output = (
...
            'office 1_155_135' => 1,
            'office 1_140_135' => 1
          );