Select Code to Download

#!/usr/bin/perl
use strict;
...
# using split on /\s+/  (the default)
a|b|c
|a|b|c