Dari kode diatas bisa saya simpulkan bahwa

s/^\s+//;
s/^0+//;

space diinterpretasikan dalam perl  space= \s , saya tahunya hanya new line
= \n
jadi \s cukup ganti pakai angka 0(nol)

terima kasih pak atas solusinya, sudah saya coba disini dan bisa.

Ahmad Juniar



--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]

Kirim email ke