&warning_li­ke( sub { warn "warning!" }, qr(warning­), 'basic warning');