#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use open qw(:std :utf8);
while (<>) {
s/\s/\x{A0}\x{A0}/g if tr
<!"#$%&´()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~¢£>
<!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~¢£>;;
} continue {
print;
}
close(STDOUT) || die "can't close stdout: $!";