1
2
3
4
5
6
7
8
9

#!/usr/bin/perl

use strict;
use warnings;

my $string = 'Zeichen_zum_Escapen.\/ok_jetzt_aber_welche_die_nicht_escaped_werden #%';
my $regexp = ">\Q$string\Eo<";

print $regexp;

Quote

---------- Perl ----------
>Zeichen_zum_Escapen\.\\\/ok_jetzt_aber_welche_die_nicht_escaped_werden\ \#\%o<
Output completed (0 sec consumed) - Normal Termination

Quote

\Q quote non-word characters till \E