Content of perl script ----------- use strict; $/ = "\n%%%\n"; #define separator for array open ARTS, "art.dat" or die $!; my @file = <arts>; my $random = rand(@file); my $ascii_art = $file[$random]; $ascii_art=~s/\n%%%\n//; #remove the separator string print $ascii_art, "\n"; ---------- sample content of art.dat, you can get more from the mentioned web site or newsgroup (sample below taken from http://www.chris.com/ASCII/) ---------- $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$*" *$$$$$$$$$$$$$$$$$$$$$$$$$$$" "*" *$$$$$$" ^$$$"$$$$$$$$$$$ $$$$$$$$$" z$P"$$$$$$$$$$$$$$$$$$$$$$$$P e$"e4$b. "$$" d$ $P $$$$$$$$$$$$ $$$$$$$" .$$$ J$$$$$$$$$$$$$$$$$$$$$$$" .$Pz$$4$$$$c z" $$*" z$$$$$$$$$$$$$ $$$$$$ 4$$$$$$$$$$$$$$$$$$$$$$$$$$$P z$$4$$%$$$$$$$d " ...