Cut first value after underscore and replace first two digit with zero in perl

Like I have below string

XX_49154534_491553_201_122023_D
XX_49159042_491738_201_103901_D

and the expected output would be

0154534
0159042

XX and 49 can be dynamic.

Please show your own work.

UNIX.com is not a "script writing service" .

We are here to help you learn to admin and write scripts for your servers and systems.

So, please post the code you have written, sample input, output and any error messages.