Select Code to Download

#! perl
use strict;
...
    qr{ \b ( (\d+) \s \S+ ) (.*?) \s \2 \s (\S+) }x

)->explain();

17:26 >perl 1526_SoPW.pl
The regular expression:
...
----------------------------------------------------------------------

17:26 >