#!/usr/bin/perl -w
use strict;

my $string = 'column1    |column two       |might be column3';
my @columns = split /\|/ , $string , -1;
$_ =~ s/\s+$// for @columns;
$string = join '|' , @columns;