I have a text file that reads like this although MUCH longer:

2L|44806
2L|47520
2L|49716
2L|49726
2L|49726
2L|49727
2L|49729
2L|49732
2L|49734
2L|49737
2L|49739
2L|49742
2L|51684
2L|51688
2L|51689
2L|51690
2L|51707
2L|51707


I want to round the # to the nearest 100, so it will be a new list like :

2L|44800
2L|47500
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|49700
2L|51600
2L|51600
2L|51600
2L|51600
2L|51700
2L|51700


how do I do it in perl?
can I make it dynamic with a user selected value in place of the 100?