#! perl -w 
open(MYOUTFILE, ">/tmp/design_name_dnp_top"); 
open (FILEH, "/tmp/strfile"); 
while (<FILEH>) {
chomp; 
/\/([^\/]+)\d$/; 
print MYOUTFILE $1."topdnp\n"; 
} 
close(FILEH); 
close(MYOUTFILE);