$ perl -le'
my $string = "ASDFGHJ";
my @array = ( "|", "|", "|", "|", "", "|", "|" );
print $string;
$string =~ s/(.)/ length $array[ $-[ 0 ] ] ? $1 : lc $1 /eg;
print $string;
'
ASDFGHJ
ASDFgHJ