use strict; 
use warnings;

use 5.018;

package jjj;

sub YYY {
    my $y = shift // q{ ~ \o/ ~ /o\ ~ \o/ };    
    say $y;
}

1;