If you need the first eight characters, I believe you want substr($foo, 0, 8) and not substr($foo, 8, 0). :)

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.