or download this
#!/usr/bin/perl
...
some text FOO | some text BAR | oh , no , commas | some text BAZ | so
+me text QUX
some text FOO | some text BAR | single | some text BAZ | some text QU
+X
some text FOO | some text BAR | oh , no , commas | one, two | some te
+xt QUX