print join( "\n", sort map { (my $t=$_)=~s/^\s+//;$t=~s/\s+$//;$t } split( /;/, $file_data ) ), "\n";