Select Code to Download

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

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

chop($path); 

...

chop($slack);