- or download this
s/ ^ \b (?<head> [ \w \s \[ \] ]+ \s+ \( ) $
(?<body> .*? ^\)$ )
...
unless $+{head} ~~ m|^\w+?clk\[\d\]|;
$+{head} . $+{body}
/gemsx;
- or download this
doit if $x ~~ / (?<x1> \w+)\s+(?<x2> \w+) /x and
$y ~~ / (?<y1> \w+)\s+(?<y2> \w+) /x and
$+{x1} . $+{y2} eq $+{y1} . $+{x2};
- or download this
{
my %+;
...
$y ~~ / (?<y1> \w+)\s+(?<y2> \w+) /x and
$+{x1} . $+{y2} eq $+{y1} . $+{x2};
}