#usr/bin/perl 
 
my $file="871066-871069.doc"; 
my $file1; 
my $file2; 
if ($file=~m{(\d+)\-(\d+\.doc)}) { 
	$file1=$1.".doc"; 
	$file2=$2; 
} 
print "$file1\n$file2\n";