Select Code to Download

sub import {
my $self = shift;
...
foreach (@matches) {
if (/\s(.*)\s(.*\@.*)\s/) { $users{$1} = $2 }
}