use strict; use warnings; use Test::More 'no_plan'; ok(1, 'escape some of these chars: !@#$%^++_)(*&^%$#@!><'); like('ac', qr//, 'contains in the '); is('ac', '

eeek

', ' in the diag messages..');