if ( defined $val ) {
    $val = my_routine( $val );
}

sub my_routine {
    my ( $val ) = @_;
    $val =~ s/0/O/g;
    return $val;
}