> my ($lname, $fname) = ($res->get_gst_name =~ /^(\w+)(,|\/)(\w+)$/); > > what's wrong with this? Ya. That's bad. The , or / will be stuck in $fname. Perhaps: #^(.*?)[,/](.*)$# j