#!/usr/bin/perl

use strict;
use warnings;

my $text = '123';
pos $text = 3;
'f' =~ m/(.)/; # $1 befüllen
find() for 1 .. 2; # Mindestens zweimal, um den Fehler zu bekommen...

sub find
{
    $text =~ m/\G(.*)/gc;
    print $1, "\n";
}