my ($fn, $str_ref ) = @_;
# or $ref_str, $r_str or other possibilities