Use Perl script to split one text to several parts according to fixed format.