#!/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;

##</code><code>##

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