Select Code to Download

Select or download this

$s = '1START   ACCOUNTA     XXXXXMA      12345     XYZ111          1ST
+ART ...';;
print $1 while $s =~ m[((?:\S+\s+){5})]g;;
1START   ACCOUNTA     XXXXXMA      12345     XYZ111
1START   ACCOUNTB     XXXXXBR      12345     XYZ191
1START   ACCOUNTA     XXXXXNY      54321     XYZ131

Select or download this

[0] Perl> print $1 while $s =~ m[(.{61})]g;;
1START   ACCOUNTA     XXXXXMA      12345     XYZ111
1START   ACCOUNTB     XXXXXBR      12345     XYZ191
1START   ACCOUNTA     XXXXXNY      54321     XYZ131