#!/usr/bin/perl -i.orig -p

s/submit_(.*?)_/submit\u$1/g;