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


##</code><code>##

42 43 44 45


##</code><code>##

($q, $x, $y) = grep /\d+/, @fred;
print "$q $x $y\n";


##</code><code>##

42 43 44


##</code><code>##

($q, $x) = grep /\d+/, @fred;
print "$x\n";


##</code><code>##

42 43


##</code><code>##

($q) = grep /\d+/, @fred;
print "$q\n";


##</code><code>##

42