my @array = ("|", "|", "|", "|", "", "|", "|");
print join '', map { my $foo = shift @array ? $_ : lc } split '', 'ASDFGHJ';