#!/usr/bin/perl

use strict;
use warnings;

my $no_break_space = chr(0xa0);
my $string ="hallo";
$string .= $no_break_space;
$string .= "welt\n";
print $string;


$string =~ s/$no_break_space/_/g;
print $string;