Select Code to Download

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

 # left = 555, string = 555-4587
my($left) = substr( $string => 0, 3 );

 # leftmost = 555, string = -4587
my($left) = substr( $string => 0, 3, "" );