$search_string = "123abc";

sub foo {
    $again = shift;
    $search_string =~ /(\d+)(\w+)/;
    print "$1 $2\n";
    return unless $again;
    $search_string = "456def";
    foo(0);
    print "$1 $2\n";
}

foo(1);