#! /usr/bin perl # e. dziewa december 2009 use warnings; use strict; die usage() unless $ARGV[0]; my @array = split( //, $ARGV[0]); print "\n \n"; for (my $i = 0; $i <= $#array; $i++ ) { print " \n"; } print " \n"; print ""; sub usage { printf( "\033[%02dmUsage\033[0m: $0 \"some text to format\"\n", 7 ); return; }