while <CUSTOMERFILE> {
   # YOUR REGEX AND OTHER THINGS HERE
   # Note: record just read is in $_ ; works nice with m//
}