Help for this page
s{( \\cite\[[^]]\]\{ ([A-Z]) ) }
{$1\l$2}gxe;
sub lower{ my $letter = shift; return lc($letter); } s{...snip...}{ $1 (?{ lower( $2 ) } ) }gxe;