in reply to Extract delimited words from string

#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11148600 use warnings; my @lines = split /\n/, <<END; 50 0 "R0 G255 B0 A255" "Solid" 118 1 "R0 G0 B0 A255" "R0 G0 B0 A255" 0 70 0 "R0 G255 B255 A255" "Solid" 118 1 "R12 G12 B12 A255" "R12 G12 B12 + A255" 0 END my @strings = map /"(.*?)"/g, @lines; print "$_\n" for @strings;

Outputs:

R0 G255 B0 A255 Solid R0 G0 B0 A255 R0 G0 B0 A255 R0 G255 B255 A255 Solid R12 G12 B12 A255 R12 G12 B12 A255