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

##</code><code>##

 0:10 >perl 369_SoPW.pl
Leave me intact PLEASE

 0:13 >

##</code><code>##

print "@lines";

##</code><code>##

print for @lines;