Select Code to Download

#!perl -l
my $s1  = q/X -4 Y 3 Z/;
...
for ( $s1, $s2, $s3, $s4 ) {
    print for /(?=(\S+\s+-?\d+\s+\S+))/g;
}