There is the obvious

print <<EOF;
ABCDEFGFEDCBA   
ABCDEF FEDCBA   
ABCDE   EDCBA   
ABCD     DCBA   
ABC       CBA    
AB         BA  
A           A
EOF
[download]

How about?

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

-- stef