my $file1="file1.txt";
open FILE1, "<$file1" or die $!;

my $file2="min_viols_endpointSorted.csv";
open FILE2, ">$file2" or die $!;


while(<FILE1>){ 
my $path = $_; 
$path =~ /([^\s]+)/; 
$path = $1; #Extracting path 
chop($path); 
my $slack = $_; 

$slack =~ /[^\f+][\s+][\f+][\s+][\f+][\s+]([\f+]+)[\s](VIOLATED)/; 
$slack = $1; 
print "$slack\n"; 
chop($slack); 
print FILE2 "$path $slack\n"; 
}