foreach $field (split(/\Q$delim\E/, $line)) {
[download]

Update: See perldoc -q quote

Cheers,
Darren :)

PS. The word is "delimiter" ;)