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