my $replacement= '\t\n\n'; s{ .*? \K (?=) } { $replacement } x;