I second the suggestion to use a templating module - take a look at Template Toolkit, it should fit the bill.

As for your question of two different formats, whatever your overall solution, why not just set up two variables for replacement. Call one vehicle and the other VEHICLE, or maybe VEHICLE and VEHICE_UC. In the perl code, make two replacements - one with the regular and other with the uc()'d version.