Split string into array

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have the following string printed via DataDumper

$VAR1 = 'Printer1        Printer   Printer 1
Printer2       Printer   Printer 2
Store          Printer   Store printer
';
[download]

How can I split this string to get only the printer name (e.g. first word, skip the next two, next word, skip the next two) into an array? Thanks

Comment on Split string into array Download Code

Replies are listed 'Best First'.
Re: Split string into array by Tux (Canon) on Dec 14, 2011 at 14:54 UTC
`my @printers = ($VAR1 =~ m{^ (\S+) }gmx);` Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^2: Split string into array by Anonymous Monk on Dec 14, 2011 at 15:01 UTC
thanks, works perfectly.	[reply]
Re: Split string into array by moritz (Cardinal) on Dec 14, 2011 at 14:53 UTC
What have you tried? Did you take a look at split? Perl 6 - second systems done right	[reply]