my $char = quotemeta '*';  #  or "\Q*" instead of quotemeta
@line = split /$char/, $_;