$path =~ /([^\s]+)/; 
$path = $1; #Extracting path 

...

$slack =~ /[^\f+][\s+][\f+][\s+][\f+][\s+]([\f+]+)[\s](VIOLATED)/; 
$slack = $1;