nefunguje zamena

[Jan Veleta]

> Potiz je v tom, ze znak | se v reg. vyrazech pro varianty, tj. s/x|z/Q/g
> zajisti, ze se kazdy vyskyt x NEBO z nahradi Q. 
> Takze doporucuji but misto "|" pouzit "\|", coz zrusi spec. vyznam znaku |, nebo
> pouzit jiny znak.

Hmm, to jsem si neuvedomil, ale kdyz jsem zkusil pouzit \| tak ten 
enter tam zustal stejne:(.

ten kod vypada takhle:

$_=$vstup{"saywhat"};
s/\n/\|/gm;
print OUTFILE $_,"|~|\n";