#!/usr/bin/perl -w
use strict; # always
$_ = join("",('A' .. 'G'), reverse('A' .. 'F'),"\n");
foreach my $letter (reverse ('A' .. 'G')) { print; s/$letter/ /g; }
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.