I was given an Access database which I am trying to get into MySQL, I read through the documentation on mysqlimport and it said that it was only capable of importing text files. So I export my Access DB into a pipe delimited file, pipes delimiting the fields, and newlines delimiting the records. Well, to make a long story short, M$ Access's Export feature sucks, many of my rows were divided on whitespaces which resulted single lines looking like the following 
3884|MC1|GW|Graphworks/Mirandas Needle|kit
|Mice Skating|EACH|$1.50|$0.75|MC1.JPG

[download]

My question is, how do I remove the newline '\n' on a line if the next line doesn't start with a 3-5 digit number and then print that new complete line to a seperate file?

This is what I have so far, and it doesn't work. 
open (PROD,"<products.txt");
open (OUT,">out.txt");
@array = <PROD>;
foreach $line (@array){
unless ($line =~/JPG?/){ chomp; }
print OUT "$line"; }

[download]

any help would be appreciated.

In reply to Regular Expression help, MS Access Pipe delimited export gone bad by silent11

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.