Shell Programming and Scripting

my $delim = '|';
print "delim = <$delim> \n";
my $word = "I|know|you";
my ($fld1,$fld2,$fld3) = split(/\$delim/,$word);

print "fld1 = $fld1 \n";
print "fld2 = $fld2 \n";
print "fld3 = $fld3 \n";

my $delim = '|';
print "delim = <$delim> \n";
# Add escape sequence non-word characters
$delim=quotemeta($delim); 
my $word = "I|know|you";
my ($fld1,$fld2,$fld3) = split(/$delim/,$word);
print "fld1 = $fld1 \n";
print "fld2 = $fld2 \n";
print "fld3 = $fld3 \n";

prompt$ perldoc -f quotemeta