note Lotus1 <p>The split function can get rid of the white space also.</p> <c> #!/usr/bin/perl use strict; use warnings; my $str = "item1 | item2| item3 |item4| "; print ">$_<\n" foreach split /\s*\|\s*/, $str; </c> 997827 997827