my $s = "foo;bar";

my ($first) = split /;/, $s, 1;
print "first: $first\n";

($first) = split /;/, $s, 2;
print "first: $first\n";