You could improve readability with use charnames qw( :full);. This would allow you to specify the special character in a legible way, other than that your regex seems sane.