#! perl -w
open(MYOUTFILE, ">/tmp/design_name_bot"); open (FILEH, "/tmp/strfile");while (<FILEH>) {
chomp;   if ( /848*/i ) {
  tr/\// /;  tr/_/ /; ($board,$iss) = (split)[4,5]; 
    ($line) = "_"; 
    ($side) = "bot";
open(MYOUTFILE, ">>/tmp/design_name_bot");
print MYOUTFILE "$board$line$iss$line$side\n";
}
}
close(MYOUTFILE);