Select Code to Download

#! perl -slw
use strict;
...
        print for @matches;
    }
}

c:\test>742277.pl
857720
...
foruhvpekgtnialyifyi
forcnmamdsx
forcvxnb