do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;