Help for this page

Select Code to Download

Select or download this

my @compounds = qw(
    C3H8O2
...
    grep /P/,
    @compounds;

Select or download this

my @compounds = qw(
    C3H8O2
...
    map /P/ ? [ $_, /C(\d+)/ ] : (),
    @compounds;