poj This is a good read, and it will probably help me with my next task (rearranging the data fields).
In my testing it led me to wonder why I didn't need the "()" around the "$row->5" when it is inside a print string. Below is my sample which works, but I don't understand why I don't get back a "1". Is the " character special in this case, or a lack of the "=" or "=~"?

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

#output

TRAY HINGED PLSTC 20 CAV #F32473        #F32473
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
[download]