or download this
#!/usr/bin/perl
...
201.4;201(50, 51, 55-59, 70-74, 77-79)
2302.1;2302, 2304(3-8, 92-99), 2305(2, 4-9)
231.1;2301, 2303, 2304(1, 2, 90, 91), 2305(1, 3), 2306, 2307, 2308
or download this
201.1;201(27, 28, 3, 4, 83, 84, 890, 897, 898, 9), 2054:
$pre = '201
...
$pre = '2301, 2303,
$in = '2304(1, 2, 90, 91), 2305(1, 3)'
$post = ', 2306, 2307, 2308'