perl -e 'sub foo{return qq|xoxoxox|}; print qq|happy @{[&foo]} !|;'
happy xoxoxox !

# or

 perl -e 'sub foo{return qq|xoxoxox|}; print qq|happy |. &foo . q~!~;'