$result= ( $x.split('') ==> map { %rtoa{$_.uc} } ==> reduce { $^a+$^b-$a%$b*2 } );