m[(?<=\D)(\d{4,5})\.htm] and print $1 for qw[ xxx123.htm xxx1234.htm xxxx12345.htm xxx123456789.htm ];; 1234 12345