1 2 3 4 5
# cat -n & `...' operator test while gets() if 1 ... /^\*/; print("--") end printf("%5d: %s", $., $_) end