Select Code to Download

print <<EOF;
ABCDEFGFEDCBA   
...
AB         BA  
A           A
EOF

$a = "ABCDEFGFEDCBA\n";  
print($a), substr($a, 7-$_, 2*$_-1) = " " ."  " x ($_-1) for  1..7