Help for this page
Select Code to Download
Select
or
download this
my $attr = shift; my @found = { grep /^on[A-Z]/ } keys %$attr;
Select
or
download this
my @found = { grep /^on/ } keys %$attr;