#!/usr/bin/perl -w

$re = '[\w-]';
eval {'' =~ /$re/ }
if($@) {print "error: $@\n"}