There's also

my ($x, $y) = $s =~ /^(.*?)0(.*)/s;

  -or-

my ($x, $y) = $s =~ /^([^0]+)0(.*)/s;
[download]