#!/opt/local/bin/perl -n

chomp;
chomp;
@ustats = split(/:/);

# Username:Mining Lvl:MySpawn Location:Party:Mining XP:Woodcutting Lvl:Woodcutting XP:Repair Lvl:Unarmed Lvl:Herbalism Lvl:Excavation Lvl:Archery Lvl:Swords Lvl:Axes Lvl:Acrobatics Lvl:Repair XP:Unarmed XP:Herbalism XP:Excavation XP:Archery XP:Sword XP:Axe XP:Acrobatics XP:World Name:Taming Lvl:Taming XP:?:?:?:?:?:?:?:?:Fishing Lvl:Fishing XP:?

# Fix levels
@ustats[1] = int((@ustats[1]/1000) * 99);
@ustats[5] = int((@ustats[5]/1000) * 99);
@ustats[7] = int((@ustats[7]/1000) * 99);
@ustats[8] = int((@ustats[8]/1000) * 99);
@ustats[9] = int((@ustats[9]/1000) * 99);
@ustats[10] = int((@ustats[10]/1000) * 99);
@ustats[11] = int((@ustats[11]/1000) * 99);
@ustats[12] = int((@ustats[12]/1000) * 99);
@ustats[13] = int((@ustats[13]/1000) * 99);
@ustats[14] = int((@ustats[14]/1000) * 99);
@ustats[24] = int((@ustats[24]/1000) * 99);
@ustats[34] = int((@ustats[34]/1000) * 99);

# Fix XP

@ustats[4] = int((@ustats[4]/1000) * 99);
@ustats[15] = int((@ustats[15]/1000) * 99);
@ustats[16] = int((@ustats[16]/1000) * 99);
@ustats[17] = int((@ustats[17]/1000) * 99);
@ustats[18] = int((@ustats[18]/1000) * 99);
@ustats[19] = int((@ustats[19]/1000) * 99);
@ustats[20] = int((@ustats[20]/1000) * 99);
@ustats[21] = int((@ustats[21]/1000) * 99);
@ustats[22] = int((@ustats[22]/1000) * 99);
@ustats[25] = int((@ustats[25]/1000) * 99);
@ustats[35] = int((@ustats[35]/1000) * 99);

# Output the result

for ($i=0; $i < 39; $i++) {
  print @ustats[$i] . ":";
}

# End the line

print "\n";