#!/usr/bin/perl -w use strict; my $text = 'scaffold_12147 protein_coding exon 32192 32242 . - . gene_id "ENSTBEG00000007763'; my @numbers = ($text =~ /\s(\d{5})/g); print "@numbers\n"; #prints 32192 32242