http://qs1969.pair.com?node_id=30157


in reply to outputting fun

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

Cheers,
Shendal