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