unititle

#!/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 $_;
}