Select Code to Download

if you find a way to escape curlies and other "wildcard characters"

#!/usr/bin/perl

...
__DATA__
some text foo | some text BAR | oh , no , commas | some text BAZ | som
+e text QUX
some,text,FOO{3} | some text BAR*? |  "one" two | some , text , QUX

some text foo | some text BAR | oh | some text BAZ | some text QUX
some text foo | some text BAR | no | some text BAZ | some text QUX
...
FOO{3} | some text BAR*? |  "one" two | some 
FOO{3} | some text BAR*? |  "one" two | text 
FOO{3} | some text BAR*? |  "one" two | QUX