Select Code to Download

    cc => sub { "this is an amazingly long string" =~ /\s([^l]*)l/ },
    ds => sub { "this is an amazingly long string" =~ /\s(.*?)l/ },

#!/usr/bin/perl -w
use strict;
...
negated CC:
    abc => 123
    def => 456

[1]  well 'any character' except a newline,  unless /s