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";
}