diff --git a/plugins/perldoc.pm b/plugins/perldoc.pm
index ab527a7..f7e2c01 100644
--- a/plugins/perldoc.pm
+++ b/plugins/perldoc.pm
@@ -15,7 +15,7 @@ sub {
 	  $query =~ s/%20/+/g;
 	  $url = "http://perldoc.perl.org/search.html?q=".$query;
 	}
-	elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression
+	elsif ($said->{body} =~ /-f\s+(.*)/i) #functions, only use the first part of a multiword expression
 	{
 		#http://perldoc.perl.org/functions/abs.html
 		my $func = $1;