$ perl -le'
my $s1  = q/X -4 Y 3 Z/;
my $s2  = q/W 1 X -4 Y 3 Z/;                 
my $s3  = q/X 2 Y/;                          
my $s4  = q/A -4 B -4 C -4 A -4 B/;          
for my $s ( \( $s1, $s2, $s3, $s4 ) ) {     
    print for $$s =~ /(?=(\S+\s+-?\d+\s+\S+))/g;
    }
'
X -4 Y
Y 3 Z
W 1 X
X -4 Y
Y 3 Z
X 2 Y
A -4 B
B -4 C
C -4 A
A -4 B