#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

my @e1 = (
        '   bob',
        '    sue',
        '  joe_1',
);

my @e2 = (
        'bob',
        'sue',
        'joe1',
);

my @f = map { s/\W|_//g; $_ } @e1;

print Dumper(\@f);
print Dumper(\@e2);