#!/usr/bin/perl

use warnings;
use strict;

my @aiString = ('1 1', '1 ér', '1    2', '1a w 1 1 2', '11 1 2 b');

for my $i (0 .. $#aiString) {

	print $aiString[$i].'|||';
	
	$aiString[$i] = HnrKorr($aiString[$i]);

	print $aiString[$i]."\n";

} # for

sub HnrKorr {

	my $string = shift;;

	($string) =~ s%(?=[^a-zA-Z])(\s+)(?=[^a-zA-Z])%/%g;
	$string;

} # HnrKorr