#----------------------------- |
# backslash |
$var =~ s/([CHARLIST])/\\ $1 /g; |
# double |
$var =~ s/([CHARLIST])/ $1 $1 /g; |
#----------------------------- |
$string =~ s/%/%%/g; |
#----------------------------- |
$string = q(Mom said, "Don't do that." ); #' |
$string =~ s/(['"])/\\ $1 /g; |
#----------------------------- |
$string = q(Mom said, "Don't do that." ); |
$string =~ s/(['"])/ $1 $1 /g; |
#----------------------------- |
$string =~ s/([^A-Z])/\\ $1 /g; |
#----------------------------- |
$string = "this \Qis a test!\E" ; |
$string = "this is\\ a\\ test\\!" ; |
$string = "this " . quotemeta ( "is a test!" ); |
#----------------------------- |