use strict; use warnings; my $data=;#As only one line in the file... my @member_nos = $data=~m/(\d+)/g; print join $/,@member_nos; __DATA__ 60ab7483