mmar · August 29, 2015 14:25
diff --git a/guess_name_from_email.pl b/guess_name_from_email.pl
 ## Usage: my $name = guess_name_from_email( $email );

 sub guess_name_from_email {
  return join q( ), map { ucfirst lc } ( sub { ( shift, pop ) } )->( split /\./, ( split /@/, shift )[0] );
 }
	## Usage: my $name = guess_name_from_email( $email );

	sub guess_name_from_email {
	return join q( ), map { ucfirst lc } ( sub { ( shift, pop ) } )->( split /\./, ( split /@/, shift )[0] );
	}