while() if(/([^\n]*)\n(.*)/sm) { print "$1\n"; } }