gets p
gsub(/^./){print$&}while/./