Select Code to Download

<compound-word> := <word> <compound-word>
<word> := word1 | word2 | ... | wordn

my $compound = "onlinetrading";
my $words = 'online|trading';
...
   $second = $2;
}
print "$first, $second\n";