Исправление AITap, 20.11.12 14:49 (текущая версия) :
$str = «0"x(6 - length $str).$str;
Исходная версия AITap, 20.11.12 14:46:
$str = «0"x(6 - length $str).$str