Select Code to Download

use strict;
use warnings;
...
my @parts = $line =~ /([^=]* = \s* "[^"]*" )\s*/gx;

print "$_\n" for @parts;

one="1"
two="2"
three="3"
x="y"