in reply to Re^2: simple regexp problem
in thread simple regexp problem

In that case, split still works: 

my ($part1, $part2) = split /_/, $str, 2;

[download]
That extra parameter asks for no more than two items - more _'s will not be even looked at.

In Section Seekers of Perl Wisdom