Add `underscorize` subroutine

Takes a string and returns a lowercased underscored representation of it
with non-alphabetic characters removed.

Examples:

    GitHub string's
    Karma
    This is a test
    BOOYA KACHA
    Test @%^Test

Becomes:

    github_strings
    karma
    this_is_a_test
    booya_kacha
    test_test

1 files changed, 10 insertions, 0 deletions

diff --git a/slack_profile.pl b/slack_profile.pl
index d4ddae2..6cd4cbe 100644
--- a/slack_profile.pl
+++ b/slack_profile.pl
@@ -156,6 +156,16 @@ sub fetch_user_presence {
 	return $resp->{'presence'};
 }
 
+sub underscorize {
+	my ($string) = @_;
+
+	my $result = lc $string;
+	$result =~ s/ /_/g;
+	$result =~ s/[^a-z_]//g;
+
+	return $result;
+}
+
 sub update_user_profile {
 	my ($key, $value) = @_;