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