953-FMT-FMT   954-FMT-FMT   BLOGO93-FMT-FMT   955-FMT-FMT   BOXSTART2-FMT-FMT   BOXEND2-FMT-FMT   956-FMT-FMT   413-FMT-FMT   DATE1-FMT-FMT   414-FMT-FMT   415-FMT-FMT   416-FMT-FMT   BLOGO107-FMT-FMT   417-FMT-FMT   419-FMT-FMT   418-FMT-FMT   BLOGO63-FMT-FMT   393-FMT-FMT   394-FMT-FMT   BLOGO75-FMT-FMT   420-FMT-FMT   421-FMT-FMT   395-FMT-FMT

##</code><code>##

#!/usr/bin/perl -w
open (FH1, "input.txt") || die "Couldn't open input.txt";
$/ = "   ";
@records = <FH1>;
open (FH2, ">>output.txt") || die "Couldn't open output.txt";
	foreach my $record (sort {$a cmp $b}  @records) {
	print FH2 "$record\n";
	}