#!/usr/bin/perl

while( <DATA> )
	{
	chomp;
	
	my $munged = $_;
	
	$munged =~ s/-(?:spam|ham)(?=@)//;
	
	printf "%-30s  -->  %-30s\n", $_, $munged;
	}

__END__
joe@example.com
joe-ham@example.com
joe-spam@example.com
joespam@example.com
wortham@example.com