use strict; use warnings; while () { s/(?