# left = 555, right = 4587
my($left,$right) = split( /-/ => $string, 2 );