Typing corrections (HU)

#!/bin/sh
perl -p -w -e  's/\n/ /;' step1.in > step1.out1
perl -p -w -e \
'
s/\.\.\./QQQQQ1/g;
s/–/QQQQQ2/g;
s/„/QQQQQ3/g;
s/…/QQQQQ4/g;

s/ +([\.\?\!\:\;\”\,])/$1/g;
s/([\;\,\.\?\!])([^ \)\.\?\!\<\>\:\;\”\,\d])/$1 $2/g;
s/ +$//g;
s/ +/ /g;
s/\. (.)/. \U$1/g;
s/\! (.)/! \U$1/g;
s/\? (.)/? \U$1/g;
s/kb\. (.)/kb. \L$1/g;
s/Kb\. (.)/Kb. \L$1/g;
s/pl\. (.)/pl. \L$1/g;
s/Pl\. (.)/Pl. \L$1/g;
s/ - / QQQQQ2 /g;
s/ +/ /g;

s/\! DOCTYPE/!DOCTYPE/;
s/\! \-\-/!--/;
s/HTML 4\. 0/HTML 4.0/;
s/LibreOffice 3\. 5/LibreOffice 3.5/;
s/0\. 21cm/0.21cm/;
s/5 \(Linux\)/5  (Linux)/;

s/QQQQQ1/.../g;
s/QQQQQ2/–/g;
s/QQQQQ3/„/g;
s/QQQQQ4/…/g;

' step1.out1 > step1.out2