single quotes not allowing in perl

[vasanthgk91]

single quotes not allowing my regular expression condition

if($title=~/^([a-zA-Z0-9 \.\-\(\)\%\&\:\;\,\"\']+)$/)

single quotes coming from this title..Not match this condition

[Tux]

Why do you escape all those characters inside a character class?

--8<---
use 5.016;
use warnings;

my $title = "single quotes not allowing in perl";

$title =~ m/^([a-zA-Z0-9 \.\-\(\)\%\&\:\;\,\"\']+)$/ and
    say "Title matches original re";
$title =~ m/^([-a-zA-Z0-9 .()%&:;,"']+)$/ and
    say "Title matches simplified re";
-->8---

=>

Title matches original re
Title matches simplified re

[vasanthgk91]

thank u very much..

$title value i receiving from param array then i match perl regex condition if the condition satisfies means i will do my work..

if($title=qr(^([a-zA-Z0-9 -.()%&:;,"'/]+)$))
{
print "Do my work";
}

this is works fine..great thanks

[hdb]

Be careful! You have lost the ~ in your match. And you need to place the - at the beginning of the character class. See this example:

use strict;
use warnings;

my $title = 'have ++ fun#';
if($title=~qr(^([a-zA-Z0-9 -.()%&:;,"'/]+)$))
{
        print "Do my work 1\n";
}
if($title=~qr(^([-a-zA-Z0-9 .()%&:;,"'/]+)$))
{
        print "Do my work 2\n";
}

[Corion]

What do you mean by "receiving from param array"?

Please show a working, short program (20 lines) that reproduces the problem.

[marto]

Is there a reason you're not showing us the data? Is the value of $title a secret? What do you expect this regex to do? What is the desired output? Once again please read and understand How do I post a question effectively?.