my ($var1, $var2, $var3, $var4, $var5) = ( $str =~ /(?:^|\|)\s*(.*?)\s*(?=$|\|)/g, ("")x5 );