sub regex {
    my $in = shift;
    my $ret = '';

    # Assign something to $ret in a code assertion
    $in =~ m/^(a)(?{$ret=1})/;

    return $ret;
}

while(<DATA>) {
    print regex($_) . ".";
}

__DATA__
a
b
a
abcd
bcda