Split string into array

[Anonymous Monk]

I have the following string printed via DataDumper

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

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

[Tux]

my @printers = ($VAR1 =~ m{^ (\S+) }gmx);

[Anonymous Monk]

thanks, works perfectly.

[moritz]

What have you tried? Did you take a look at split?