in reply to splitting a line by user-defined separators

$sep  = quotemeta(";:-");

while (<>)
{
  @line = split /[$sep]/;
}

[download]


holli, /regexed monk/

In Section Seekers of Perl Wisdom