splitte en tal streng op

Jeg håber meget dette kan lade sig gøre.
jeg har behov for at spillet et tal op i mindre stykker
f.eks skal 472 slittes op sådan
$ny_bronze = 2 (1'er)
$ny_solv = 7 (10'er)
$ny_guld = 4 (100)
$ny_seddel = 0 (1000)

altså et tal skal splittes op så $ny_bronze bliver = 1'er pladsen, $ny_solv bliver = 10'er pladsen osv. hvis tallet f.eks kun er 34 skal de for deles sådan
$ny_bronze = 4 (1'er)
$ny_solv = 3 (10'er)
$ny_guld = 0 (100)
$ny_seddel = 0 (1000)

altså hvis 10'er, 100 og 1000 pladsen ikke findes skal de tildeles 0

Jeg håber der er en som har en ide til hvordan jeg kan gøre dette