Es gibt noch einige nützlich reservierte Variablen für das Pattern-Matching. Hier erst mal der Überblick dazu.....

• $n - nter geklammerter regulärer Ausdruck
• $& - Zuletzt verwendeter gematchter Ausdruck
• $` - Zeigt an was vor dem gematchtend Ausdruck steht
• $' - Zeigt an was hinter dem gematchten Ausdruck steht
• $+ - Zuletzt gematchte Klammer

Hierzu nun ein Beispiel wie sie diese reservierten Variablen verwenden können........

#!/usr/bin/perl -w

use strict;

print "Bitte geben sie einen Text ein : ";
chomp(my $text=<STDIN>);
print "Wonach wollen sie im Text suchen : ";
chomp(my $suche=<STDIN>);

undef $/;

if($text=~m/$suche/){
    print "$suche gefunden!\n";
    }

print $& . " (zuletzt gematchter Ausdruck)\n" if defined $&;
print $` . " (steht vor dem gematchten Ausdruck\n" if defined $`;
print $' . " (steht hinter dem gematchten Ausdruck\n" if defined $';

Sie geben Beispielsweise als Text ein....

Dies ist der Text der gematcht werden soll

...und als Suchbegriff...

Text

Die Ausgabe sieht dann wie folgt aus......

Text (zuletzt gematchter Ausdruck)

Dies ist der  (steht vor dem gematchten Ausdruck)

der gematcht werden soll (steht hinter dem gematchten Ausdruck)