only use {m} to capture regext instead {s} to capture+replace, avoid from perl5.8 error