# print line numbers and code for blocks of "$x.=blah":

perl -ne 'if(/^\s*(\$\w+)\s*\.=/){
  if($1 ne $prv) {print "\n"; $prv=$1}
  printf "%5d: %s",$.,$_;}' monter.pl > bad_blocks.list