@line = split /$char/, $_;