The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BRIANDFOY / Unicode-Tussle-1.122 / script / unititle 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

              
#!/usr/local/bin/perl -00 -p
use 5.010;
s/^/\xA0/;
s/$/\xA0/;
s/(.+)/ul($1)/ge;
s/^/\n\xA0/;
s/$/\xA0\n/;
sub ul {
    local $_ = @_ ? shift() : $_;
    s/(?=.)(\X)/$1\x{305}/g;
    return $_;
}