Select Code to Download

## Substitute 2 or more horizontal white space with pipe
        s/[\h+]{2,}/|/g;

#!/usr/bin/perl
local $/;
...
    # process each line
}
print $txt;