(undef, $blah1) = split /\(/, $lines[$x];

That syntax is ugly and, more importantly, it doesn't scale. (Say, due to a change in input format, you need the ninth thing on the line instead of the second?) This

$blah1 = ( split /\(/, $lines[$x] )[1];
[download]

is much cleaner, I think.

-sauoq
"My two cents aren't worth a dime.";