Select Code to Download

my $test = q{asdfas dfas dfas df asfd[[bad tag]] [[table]] asdfa sf as
+ [[asdf as f\|sfds]] as dfa 
sdf [[test new line]] foo};
...
FOO:<table>
FOO:<asdf as f\|sfds>
FOO:<test new line>