#!/usr/bin/perl -w

open (F,'<mackaytest5.html');
while (<F>){
  if (/^<td>/) {$i++;$mod = $i%4;
	if ($mod > 1) {s/Image\(/Image0\(/s;s/Pic\(/Pic0\(/;}
}
print;
}