#!/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;