open IN,'<', $path_file 
  or die "Could not open $path_file : $!";
my @device = ();
while (<IN>){
  if (m/(SEP[0-9A-Z]+)/i){
    push @device,$1;
  }
}
close IN;