Блин... Я в перле ни бум -бум... Знал что надо учить его =( Судя по всему чтото не так тут..
}
if ($cod=~/^(\d+)000$/) {
print "#";

В логе: 000000 failed