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