Select Code to Download

my $named_link= q{ \s* (?<linkspec>[^|]*?) \s* (?:  (?<pipe>\|)  (?<na
+me>.*?)  \s* )? };

...
    ) }xs;
 return $ps;
 }

method do_format (Str $line)
 {
...
    }
 return join ('', @results);
 }