#!/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