my @array = ( 12, 123456, 134, 3, 45678901, 55555, 3434, 1122334455 ); my @long = ( join " ", @array ) =~ /[^ ]{5,}/g; print join "\n", @long;