#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open OUT => ':encoding(UTF-8)', ':std';

use POSIX qw(strftime);

my $string = 'hailed an über ‘cab’ on ';
my @t = (0, 0, 0, 23, 5, 2020, 4);
my $nbsp = chr 160;

print $string . strftime( '%d/%b',  @t), "\n";
print $string . strftime( "%d$nbsp%b",  @t), "\n";
print $string . strftime("‘%d$nbsp%b’", @t), "\n";
print $string . strftime('‘%d %b’', @t), "\n";