or download this
#!usr/perl/bin
use strict;
use warnings;
...
print "AFTER INCREMENT, first cell referenced: $cell1balpha" . $cell1b
+digits . "; second cell referenced: $cell2aalpha" ."$cell2adigits\n\n
+";
print "\tRefs adjusted formula: $formula_begin" . "($cell1balpha" . $c
+ell1bdigits. ":$cell2aalpha" ."$cell2adigits" . ")\n";