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

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