Use split to split on the pipe (|) delimiter.

#!/usr/bin/perl -w

use strict;

my $line = 'DsGccProxy.dll|AlarmForwarderServer.exe,AssetTracking.exe,
+CallerPosition.exe,ConferenceManager.exe,DirectionFinding.exe,EEAConf
+Access.exd,EEC_MARINE_BROADCAST.EXE,IncidentTracking.exe,MbEndpoinT.e
+xe|YES';

my ($file, $list_of_files, $bool) = split(/\|/, $line);

warn "FILE: $file\n";
warn "LIST: $list_of_files\n";
warn "BOOL: $bool\n";
[download]