>perl -wMstrict -le
"my $cs1 = qr{ [ab$%cd] }xms;
 print $cs1;
 my $cs2 = qr{ [ab\$%cd] }xms;
 print $cs2;
"
(?msx-i: [ab0cd] )
(?msx-i: [ab\$%cd] )