my $inverted = join '', map { whatever } $input =~ /./g;