my $count = 0;
while ( $message =~ /([A-Za-z0-9]+)/g) {
    last if $count++ > 1;
    print "$1\n";
}