sub do_selection{
    my( $flag, $match ) = @_;
    if( $flag ) {
        do_stuff if $data !~ $match;
    else {
        do_stuff if $data =~ $flag;
    }
}

my( $flag, $regex) = get_input();

do_selection( $flag, $regex );