my $example=<<EOF
box 55873 307343 55907 307362
feedback add "Illegal overlap (types do not connect)" medium
box 56977 307343 57011 307362
feedback add "Illegal overlap (types do not connect)" medium
box 58081 307343 58115 307362
feedback add "Illegal overlap (types do not connect)" medium
box 60013 307343 60047 307362
feedback add "Illegal overlap (types do not connect)" medium
box 61117 307343 61151 307362
feedback add "Illegal overlap (types do not connect)" medium
box 62221 307343 62255 307362
feedback add "Illegal overlap (types do not connect)" medium
box 62588 307349 62612 307362
feedback add "Illegal overlap (types do not connect)" medium
box 211358 306763 211362 306797 
EOF
;
print "<< metal5 >>\n";
while(<STDIN>)
{
  if(m/box (-?\d+) (-?\d+) (-?\d+) (-?\d+)/)
  {
    print "rect ".int($1/1)." ".int($2/1)." ".int($3/1)." ".int($4/1)."\n";
  }
  if(m/(\d+\.?\d*)um (\d+\.?\d*)um (\d+\.\d*)um (\d+\.?\d*)um/)
  {	  
    print "rect ".int($1*200)." ".int($2*200)." ".int($3*200)." ".int($4*200)."\n";
  }
}
print "<< end >>\n";