#!/usr/bin/perl
use strict;

my (@anyname) = ('Newbie', 'Neyoubie', 'Niwbie', 'Neabunchofcharachterswbie');
foreach my $string (@anyname) {
	print "$string -- ";
	if ($string =~ /Ne.*bie/) {
		print " match found.\n";
	} else {
		print " no match.\n";
	}
}
exit;

Results:

Newbie --  match found.
Neyoubie --  match found.
Niwbie --  no match.
Neabunchofcharachterswbie --  match found.

#!/usr/bin/perl
use strict;

my (@anyname) = ('stuff Newbie more stuff', 
	'stuff Neyoubie more stuff', 
	'stuff Niwbie more stuff', 
	'stuff Newbie otherstuff Newbie more stuff'
	);

foreach my $string (@anyname) {
	print "$string --> ";
	$string =~ s/Ne.*bie//;
	print "$string\n";
}
print "\n";

@anyname = ('stuff Newbie more stuff', 
	'stuff Neyoubie more stuff', 
	'stuff Niwbie more stuff', 
	'stuff Newbie otherstuff Newbie more stuff'
	);
foreach my $string (@anyname) {
	print "$string --> ";

	## use the non-greedy form
	$string =~ s/Ne.*?bie//;
	print "$string\n";
}

exit;

Results:

stuff Newbie more stuff --> stuff  more stuff
stuff Neyoubie more stuff --> stuff  more stuff
stuff Niwbie more stuff --> stuff Niwbie more stuff
stuff Newbie otherstuff Newbie more stuff --> stuff  more stuff

stuff Newbie more stuff --> stuff  more stuff
stuff Neyoubie more stuff --> stuff  more stuff
stuff Niwbie more stuff --> stuff Niwbie more stuff
stuff Newbie otherstuff Newbie more stuff --> stuff  otherstuff Newbie more stuff

#!/usr/bin/perl
use strict;
my (@anyname) = ('stuff Newbie more stuff', 
	'stuff Neyoubie more stuff', 
	'stuff Niwbie more stuff', 
	'stuff Newbie otherstuff Newbie more stuff'
	);

foreach my $string (@anyname) {
	print "$string\n";
}
print "\n";

foreach my $string (@anyname) {
	$string =~ s/Ne.*?bie//;
}

foreach my $string (@anyname) {
	print "$string\n";
}

print "\n";

exit;

Results:

stuff Newbie more stuff
stuff Neyoubie more stuff
stuff Niwbie more stuff
stuff Newbie otherstuff Newbie more stuff

stuff  more stuff
stuff  more stuff
stuff Niwbie more stuff
stuff  otherstuff Newbie more stuff