こんなんはダメ？

print '*' x (5 - length $num) , $num;