sub infix:'' ($foo, $bar) { $foo eq '' ? $bar : $foo }
sub infix:''= ($foo is rw, $bar) { $foo = $foo '' $bar }