my $s1  = 'X -4 Y 3 Z';

##</code><code>##

$VAR = [["X", -4, "Y"], ["Y",3,"Z"]];