my @fred = qw(42 43 44 45);
my ($q, $x, $y, $z) = grep /\d+/, @fred;
print "$q $x $y $z\n";