#!/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 ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~¢£> <!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~¢£>;; } continue { print; } close(STDOUT) || die "can't close stdout: $!";