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


in reply to outputting fun

#!/usr/bin/perl -w use strict; my $string = 'ABCDEFGFEDCBA'; print "$string\n" and $string =~ s/$_/ /g for reverse 'A' .. 'G';