perl -pi <<'PRG_END' s|||g; PRG_END