use warnings;
use strict;

my $a = 'A B C D E F G H I J K L M';
my $i = 7; # седьмой пробел

$a =~ s!(\s)!_a_($1, --$i)!eg;
print $a;

sub _a_{ $_[1] ? return $_[0] : return 'S' }