Scripting >> Perl >> How to split strings with special characters as delimiters

$cn = "ABC|DEF|GEH"; $cd = "|"; @cols = split(/[$cd]/i,$cn);