if($data=~/(\-?)\s*(\d+)/){