#! perl
use strict;
use warnings;

my @lines = <DATA>;

s/ ^ [A-Z\s]+ $ //x for @lines;

print for @lines;

__DATA__
AAAAAAAA
AAAA AAAAAAA
AAAA AAA AAA
Leave me intact PLEASE