chomp ( my @x = grep{/\d/} <> );