Help for this page
qr[(?:"[^"]+"|'[^']+')]
my @class = ( "'", '"' ); my $re = "[(?:".join("|",map{"${_}[^$_]+$_"}@class).")]";