#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
if ($f =~ m@^(\d+)$@s) { $v = $1; }
elsif ($f =~ m@^(\d+)/(\d+)$@s) { $v = $1, $t = $2; }
elsif ($f =~ m@^(\d+)/(\d+)/(\d+)$@s) { $v = $1, $t = $2; $n = $3; }
if ($f =~ m@^(\d+)$@s) { $v = $1; }
elsif ($f =~ m@^(\d+)/(\d+)$@s) { $v = $1, $t = $2; }
elsif ($f =~ m@^(\d+)/(\d+)/(\d+)$@s) { $v = $1, $t = $2; $n = $3; }