$T=1.5;
while(<>){
   if(/width=\"(\d+)\"\s+height=\"(\d+)\"/){
        $a=int($1/$T); $b=int($2/$T);
        print $`," width=\"$a\" height=\"$b\" ",$';
   }
   else{
       print;
   }

}