@line = split /\Q$char\E/, $_;