( my $fixed = $input ) =~ s/ search / replace /x;