BEGIN {

    if (sep == "")

	sep = " "

    FS = "[^0-9]+"

    OFS = "." }

{

    k = 0

    for (i = 0; k < 4 && ++i <= NF; )

	if ($i != "" && $i < 256)

	    a[++k] = $i

	else

	    k = 0 }

k == 4 {

    print a[1], a[2], a[3], a[4] sep a[1], a[2], a[4], a[3] sep a[1], a[3], a[2], a[4] sep a[1], a[3], a[4], a[2] sep a[1], a[4], a[2], a[3] sep a[1], a[4], a[3], a[2] sep a[2], a[1], a[3], a[4] sep a[2], a[1], a[4], a[3] sep a[2], a[3], a[1], a[4] sep a[2], a[3], a[4], a[1] sep a[2], a[4], a[1], a[3] sep a[2], a[4], a[3], a[1] sep a[3], a[1], a[2], a[4] sep a[3], a[1], a[4], a[2] sep a[3], a[2], a[1], a[4] sep a[3], a[2], a[4], a[1] sep a[3], a[4], a[1], a[2] sep a[3], a[4], a[2], a[1] sep a[4], a[1], a[2], a[3] sep a[4], a[1], a[3], a[2] sep a[4], a[2], a[1], a[3] sep a[4], a[2], a[3], a[1] sep a[4], a[3], a[1], a[2] sep a[4], a[3], a[2], a[1] }