#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 2;

like ('$', qr/[\~]+|[\!]+|[\@]+|[\#]+|[\%]+|[\&]+|[\-]+|[\_]+|[\:]+|[\;]+|[\']+|[\"]+|[\<]+|[\>]+|[\,]+|[\.]+|[\\]+|[\+]+|[\*]+|[\?]+|[\^]+|[\$]+|[\{]+|[\}]+|[\(]+|[\)]+|[\|]+|[\/]+|[\]]+|[\[]+|[\t]+/, 'Massive regex');
like ('$', qr/\$/, 'Tiny regex');