diff --git a/ShoulderCase/textMatchesExpression.m b/ShoulderCase/textMatchesExpression.m
new file mode 100644
index 0000000..2f7f46c
--- /dev/null
+++ b/ShoulderCase/textMatchesExpression.m
@@ -0,0 +1,14 @@
+function output = textMatchesExpression(text,expression)
+  if or( not(ischar(text)), not(ischar(expression)) )
+    output = false;
+    return;
+  end
+
+  matchingResult = regexp(text,expression,'match','once');
+
+  if isempty(matchingResult)
+    output = false;
+  else
+    output = true;
+  end
+end