my ($var1, $var2, $var3, $var4, $var5) = map { $_ ||= ""; Trim($_); $_; } split(/\|/, $str);

sub Trim
{
	$_[0] =~ /\s+$//g;
	$_[0] =~ /^\s+//g;
}