Hi,

you can solve this problem by two ways.

1.way ---Using \Q and \E

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

2. way --- Using 'quotemeta'

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

Thanks,

Gopal.R