Select Code to Download

    my ( $quote, $time ) = m{ \A         # beginning of line
                              (          # begin capture
...
                               \d\d      # seconds
                              )
                            }xms;