use strict; while () { my @elements = split; print ">", join(':', @elements), "<\n"; } 1; __DATA__ 1 1234 gg123456789 000-12345-1234-111 12 1234 gg123456789 000-12345-1234-111 123 1234 gg123456789 000-12345-1234-111