Fix tighten keyword regexp to strip odd chars in localmarkdown2sms.

1 files changed, 1 insertions, 1 deletions

diff --git a/localmarkdown2sms b/localmarkdown2sms
index fd0a453..f13c097 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -82,7 +82,7 @@ if ($stripprefix) {
 }
 
 # strip non-word chars from keyword (and use only first chunk of word chars)
-$key =~ s/.*?([a-zæøåÆØÅ!@\/][a-zæøåÆØÅ0-9-]+).*?/$1/;
+$key =~ s/^.*?([a-zæøåÆØÅ!@\/][a-zæøåÆØÅ0-9-]+).*?$/$1/;
 
 if ($debug) {
 	Log::Log4perl->easy_init($DEBUG);