If you wanted to learn to use embedded Perl, this is helpful to me, too. But to get around using $1,$2,$3, I'm sure you know you can use:

my( $year, $month, $day ) = 
    ( $date =~ m{ (\d+) - (\d+) - (\d+) }x );
[download]

Just threw this in for completeness. Boyd