Thoughts::Perl::Random

Where are my answers?!

1. dash thru caret
2. neither dash nor caret
3. dash or caret
4. opposite of 1
5. no dash
6. no caret

use 5.012; # implies strict + feature 'say'
use Data::Dumper;
my %matches;
for my $cc (qw/--^ ^-^ -^ ^--^ ^- ^^/) {
 	my $re = qr/[$cc]/;
 	my $match = '';
 	do {$match .= chr($_) if chr($_) =~ $re} for (32..126); # printable ascii
	$matches{$cc} = $match;
}
say Dumper \%matches