#! perl -slw
use strict;

sub doBeta(_) {
    print 'Beta';
}

sub doit(_) {
    if( /alpha/ ) {
        print 'Alpha';
        *doit = \&doBeta;
        return;
    }
    doBeta( $_ );
}

doit( $_ ) while <DATA>;

__DATA__
beta
beta
beta
beta
beta
beta
beta
beta
beta
alpha
beta
beta
beta
beta
beta
beta
beta
beta
beta
beta
beta
beta