Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    $line =~ s/(\s[a-z]+\s0{4})/,$1/g;
    print "New line:\n'$line'\n";
}

my ($user, $token, $login) = split(/\s(\d{11})\s/, $line, 2);
(my $username = $user) =~ s/\s(\w+)$//;        # untested construct
print "$username, claiming to be $user logged on with token $token, at
+ $login.\n";