-- start_matchsubs
m/\(plperl\.c:\d+\)/
s/\(plperl\.c:\d+\)//
-- end_matchsubs
