Split 

my @parts = split "\Q$separator\E", $line;