Select Code to Download

Win8 Strawberry 5.8.9.5 (32)  Fri 11/06/2020 18:48:09
C:\@Work\Perl\monks
...
B: 'Selfaxbycz' ($1 is "Self")
Use of uninitialized value in substitution iterator at - line 9.
C: 'Selfxbycz' ($1 is undef)

$string =~ m{ ... (pattern) ... }xms;
my $you_can_trust_this = $1;
...
... m{ ... }xms;
...
... s{ ... (foo) ... }{$1...$you_can_trust_this}xms;

my ($you_can_trust_this) = $string =~ m{ ... (pattern) ... }xms;

Win8 Strawberry 5.8.9.5 (32)  Fri 11/06/2020 19:28:21
C:\@Work\Perl\monks
...
$rx_token (?msx-i: foo | baz | bar | \=\= | \+ )
before: 'foo + bar == baz'
after:  'wibble plus wobble equals boff'