INPUT:core\ssm\dleroma10.cpp;//source/core/ssm/dleroma/src/IxCDcfHandlerOma10.cpp - VU_SORE_MES_RMO.00.00.44 : 7 
 
OUTPUT:VU_SORE_MES_RMO 
 
How do I change the below code to get the above output?Basically i want to print all the VU names in a given line? 
use warnings;   
while( <DATA> ){   
    (my $file_name) =  /([^\\\/]+ \. [ch]) [\s#]/xms;  
----------------------------- 
(my $VU_name) = /^\/.VU \D/xms; --->How do i modify this?? 
----------------------------- 
    next if !$file_name;  
    print $file_name, "\n";  
   print $VU_name 
}

(my $VU_name) = /^\/.VU \D/xms; --->How do i modify this??   
 
(my $VU_name) = /\s(VU\w+)/xms;

 
How to make sure duplicate values are not getting printed and only unique values are grepped? 
while( <$file1> ){   
 
	 (my $VU_name) = /\s(VU\w+)/xms; 
 
    next if !$VU_name;  
	 print "$VU_name\n";  ------> Duplicate values are getting printed 
 print grep /$VU_name/, (@file_2, @file_3); ---->I want to grep only unique values 
  
}  
close $file1;

my %seen;   # add this before loop  
 
next if !$VU_name;  
 
next if ((!$VU_name) or ($seen{$VU_name}++)); #replace prev. line

open my $file1, '<', '.\/p4\/*.ntp' or die "could not open NTP file: $!\n";  
 
 
Thanks

my $file = '/p4/file.ftp'; 
open my $file1, '<', $file or die "could not open '$file' $!";

my $file = '/p4/file.ntp';  
open my $file1, '<', $file or die "could not open '$file' $!";

my $file = '/p4/file.ntp';  
open my $file1, '<', $file or die "could not open '$file' $!";

my $file = 'E:\code\orphan_script\p4\file.ntp 
open my $file1, '<', $file or die "could not open '$file' $!";

my $file = '/p4/file.ntp';  
open my $file1, '<', $file or die "could not open '$file' $!";  
ERROR:- 
could not open '/p4/file.ntp' No such file or directory at orphan.pl line 11.

my $file = '/p4/file.ntp';  
 
my $file = 'p4/file.ntp';

my $file = '/p4/*.ntp';