my $compound = "onlinetrading";
my $words = 'online|trading';
my ($first, $second);
if ($compound =~ /^($words)($words)$/) {
   $first = $1;
   $second = $2;
}
print "$first, $second\n";