Select Code to Download

>perl -wMstrict -le
"my $s = 'a X bar XX c XXX d XXXX e XXXXX foo XXXXXX g';
...
'XX e XX'
'XX foo XX'
'XX g'

>perl -wMstrict -le
"my $s = 'a X bar c XXX d XXXX e XXX de XXX foo XXXXXX g h';
...
'XX foo XX'   :XX :foo: XX:
'XX g h'   :XX :g: h:
' h'   : :h::