Perl Text Formatting