in reply to search/replace one liners without clobbering
Some thoughts:
- There is no || regex operator. More precisely, || resolves to a pair of | regex alternation operators with a null pattern between them, and the // null regex pattern matches everything, so no surprise about the junk.
- I don't get where the $tgt $tgtf $tgtl variables are defined and initialized: what are these supposed to represent? Do you have any philosophical objection to running with strict and warnings enabled?
- (Update: The /c$tgt || c$tgtf || c$tgtl || $tgtf || $tgtl / regex has embedded literal spaces. I don't know if this is intentional, but you may want to investigate the /x regex modifier; see Modifiers.)
Can you supply a short, representative chunk of the sample input data you wish to process and its desired final form? I think that would help greatly to define the problem.
Update: Various small wording and spelling fixes.
Give a man a fish: <%-{-{-{-<
In Section
Seekers of Perl Wisdom