Select Code to Download

#!/usr/bin/perl

...
      (abs($colfrom - $colto) > 1 ? '-slide' : '');
    }
  }

best path:
up-slide down-slide left-slide up-slide right down right-slide down-sl
+ide left up-slide down-slide down-slide left up-slide 
= 0+9+3+1+1+4+3+17+1+2+5+3+4+8+10
= 71