perl -e '$mystring="CONTENT- TYPE\n"; $mystring=~s/(.*)/{my $foo= $1; $foo=~s\/\n\/ \/; "$foo"}/se; print $mystring;'