Readers: 13
1 2 3 4 5 6 7 8 9
if ( defined $val ) { $val = my_routine( $val ); } sub my_routine { my ( $val ) = @_; $val =~ s/0/O/g; return $val; }
1 2 3 4 5 6 7 8 9
$val = my_routine( $val ); sub my_routine { my ( $val ) = @_; if ( defined $val ) { $val =~ s/0/O/g; } return $val; }