sub my_routine { my ($val) = @_; return ($val //= '') =~ s/0/O/gr; }