while ( my $user = <$fh> ) {
    chomp $user;
    my $out = $system->adduser( login => $user );
    if ( $out =~ /something/ ) {
        do this;
    }
}