Select Code to Download

use strict; use warnings; use 5.010;
use Regexp::Common 'RE_balanced';
...

$string =~ s/${match}.*//;
$1 and say ">$_<" for $string, $1;

$ perl 11114819.pl
>The use of parentheses <
>(indicates that the (writer [considered] the {information}) less <imp
+ortant—almost> an afterthought)<