Select Code to Download

use warnings;
use strict;
...
UserID001|username1|password1|displayname1|
UserID002|username2|password2|displayname2|
UserID003|username3|password3|displayname3|

$ perl tst.pl
$VAR1 = {
...
                           undef
                         ]
        };