in reply to Split on metachar

@line = split /\Q$char/;

[download]
See also perldoc -f quotemeta.

In Section Seekers of Perl Wisdom