Select Code to Download

s{(
    \\cite\[[^]]\]\{
    ([A-Z])
)    
}

{$1\l$2}gxe;

sub lower{
    my $letter = shift;
    return lc($letter);
}
s{...snip...}{ $1 (?{ lower( $2 ) } ) }gxe;