ormy $CRE = '0D'; my $LFE = '0A'; s{\x{$CRE}?\x{$LFE}}{\n}xms; s{\015?\012}{\n}xms; s{\x0D\x0A}{\n}xms;
my $CRE = '\x0D'; my $LFE = '\x0A'; $_ = qq,aod \x0D\x0A another \x0D\x0A no more,; s/$CRE?$LFE/--/msxg; print; __END__ aod -- another -- no more
In reply to Re^3: Variables in extended patterns?
by Anonymous Monk
in thread Variables in extended patterns?
by flamewise
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |