gistfile1.txt

#!/usr/local/bin/perl58 -w                                                                                                          
                                                                                                                                    
use strict;                                                                                                                         
                                                                                                                                    
my @replacements = qw/                                                                                                              
    alter                                                                                                                           
    table                                                                                                                           
    add                                                                                                                             
    column                                                                                                                          
    integer                                                                                                                         
    constraint                                                                                                                      
    foreign                                                                                                                         
    key                                                                                                                             
    references                                                                                                                      
    deferrable                                                                                                                      
    create                                                                                                                          
    index                                                                                                                           
    on                                                                                                                              
/;                                                                                                                                  
                                                                                                                                    
my %reps = map { $_ => uc $_ } @replacements;                                                                                       
                                                                                                                                    
while(<>) {                                                                                                                         
    s{\b(\w+)\b}{ $reps{$1} ? $reps{$1} : $1 }xge;                                                                                  
    print $_;                                                                                                                       
}