Programando cosas en perl

Hace unos dias necesitaba una funcion para parsear caracteres no permitidos en un form y me puse a leer y vafe me paso una funcion en php que hacia algo parecido y llegue a esto 🙂

sub caracteres_permitidos {
my $cadena = shift;
if ($cadena =~ m/\|\<|\>|\[|\]|\(|\)|\{|\}|\,|\+|\*|\$|\%|\!|\=|\?|\?|\\'|\;|\&|\|/)
{
return false;
}
return true;
}