Re: Parsing a long string

If tokens are whitespace-separated and there are always 5 of them in a set:

use warnings;
use strict;

my $str = '1START   ACCOUNTA     XXXXXMA      12345     XYZ111        
+  1START   ACCOUNTB     XXXXXBR      12345     XYZ191          1START
+   ACCOUNTA     XXXXXNY      54321     XYZ131';
my $i = 0;
while ($str =~ /(\S+)/g) {
    print "$1 ";
    $i++;
    print "\n" if $i % 5 == 0;
}

__END__

1START ACCOUNTA XXXXXMA 12345 XYZ111 
1START ACCOUNTB XXXXXBR 12345 XYZ191 
1START ACCOUNTA XXXXXNY 54321 XYZ131
[download]

Comment on Re: Parsing a long string Download Code

Replies are listed 'Best First'.
Re^2: Parsing a long string by Anonymous Monk on Aug 16, 2013 at 19:12 UTC
I wish it was that simple, the original long string if too complex, the end result from the sample code should only be: `1START ACCOUNTA XXXXXMA 12345 XYZ111 1START ACCOUNTA XXXXXNY 54321 XYZ131` [download]	[reply] [d/l]