print join'',@{[do{shift@{$s=[split//,$s='foobarbaz']};@$s}]} 

print $s=reverse@{$s=do{pop @{$s=[split//,reverse$s='foobarbaz']};$s}}