#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";

my $value = "ciaoslave";
my $allowed = '[\w\d\s\-]{1,15}';
my $escape  = "yes";

if($value =~ /^$allowed$/){
        print (($escape eq "no") ? $value : quotemeta($value));
}else{
        print "Fail!";
}
print "\n";