#!/usr/bin/perl

use strict;
use warnings;

my %r = ( 
  q/^abc\d{4}/ => q/#ANFANG#/, 
  q/[a-z]{2,3}[!#]/ => q/#SPEC#/
);
my $string = 'abc4444 Perl ist! eine ganz! besondere Sprache, mit# PCRE und RegExes';
map { $string=~s/$_/$r{$_}/eg; } keys %r;
print $string;
1;