...
$line =~ s/\Q$delimiter/\,/g;
...