Select Code to Download

         ($row->[15]) = $row->[5] =~ /(#[^ ]+)/;
         print "$row->[5]\t$row->[15]\n";

#output

...
PAD FOAM 24 X 24 X 1/4 #16193 112 SHEETS PER ROLL ORDER IN FULL ROLLS 
+  #16193
PKG LIST ASST ARM RAD 300 #F37784       #F37784
PAD TOP CAP RE17-30048 #F30121 CORRUGATED ASSEMBLY 22-7/8 X 21-1/8 X 4
+-3/4    #F30121