#!/usr/bin/perl use warnings; use strict; use utf8; my $from = qr/йц(\W)/; my $to = '"фы$1"'; my $string = 'йц,'; $string =~ s/$from/$to/ee; binmode STDOUT, 'utf8'; print $string, "\n";Output:
фы,
In reply to Re: Regexp interpolation.
by choroba
in thread Regexp interpolation.
by nikolay
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |