http://www.perlmonks.org?node_id=606597

ultibuzz has asked for the wisdom of the Perl Monks concerning the following question:

Hi all,
the problem is that the first 0 shoud not be touched but all following untill number !=0, except there is only one 0

i managed it as far as u can see in my code,but these 2 problems left

this is the pattern s/(?<=\d{2})0*(?<=\d{4})0+//

this shoud be produced

given        -> after regex
215000007801 -> 21507801
300000324002 -> 30324002
890000457651 -> 89457651
210004563401 -> 214563401
201045139158 -> 20145139158

kd ultibuzz