Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    push @result, $1;
}
print join(' ', @result), "\n";

The regular expression:

(?-imsx:\b([A-Z][a-z]*))
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------