in reply to regex needed

Another way of doing it 
my (undef,$one,$two) = split /[()]/, $line;

[download]

In Section Seekers of Perl Wisdom