Server : Apache System : Linux wealthytechsolutions.wealthytechsolutions.com 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64 User : raybondt ( 1003) PHP Version : 8.3.31 Disable Function : exec,passthru,shell_exec,system Directory :  /usr/share/doc/perl-Regexp-Assemble/examples/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

#! /usr/bin/perl
#
# unquotemeta - how to fix up quotemeta
# 
# part of the Regexp::Assemble module
# David Landgren, copyright (c) 2005

use strict;

for my $ord( 0 .. 255 ) {
    my $ch = chr($ord);
    my $qm = quotemeta($ch);
    my $fix = fixup($qm);

    print "o=$ord c=$ch q=$qm f=$fix\n";
}

sub fixup {
    my $ch = shift;
    $ch =~ s/^\\([^-\w$()*+.\/?@\[\\\]^{|}])$/$1/;
    $ch;
}