#! perl -w
open(MYOUTFILE, ">/tmp/design_name_bot");
open (FILEH, "/tmp/strfile");
$_ = <FILEH>; print MYOUTFILE substr($_, rindex($_, '/') +1);
close(FILEH); close(MYOUTFILE);