Select Code to Download

#!/usr/bin/perl
#
...
    say "  \$ret   => '$ret'";      # Optional return args (in parens)
    say "  \$rargs => '$rargs'";    # Optional return args (no parens)
}

Match!
  $full  => 'private function convert_wa_date_strings(iv_beg string, i
+v_end string, iv_read_date date, iv_step char(6)) returns (date, date
+, char(1))'
...
  $args  => 'iv_beg string, iv_end string, iv_read_date date, iv_step 
+char(6)'
  $ret   => '(date, date, char(1))'
  $rargs => 'date, date, char(1)'