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

##</code><code>##

$a='abcdef*2dfd';
$char='*';
$char=quotemeta($char);
@line=split/$char/, $a;
print "@line";