#!/usr/local/bin/perl
use strict;
use warnings;

my $config = 'bar|development|/usr/bar/db|/dbdump';

my @tokens = split /\|/,$config;
foreach (@tokens) {
  print "Token: $_\n";
}