diff --git a/ale_linters/perl/perl.vim b/ale_linters/perl/perl.vim
index 131e7152..4b954f0d 100644
--- a/ale_linters/perl/perl.vim
+++ b/ale_linters/perl/perl.vim
@@ -18,7 +18,7 @@ function! ale_linters#perl#perl#Handle(buffer, lines) abort
         return []
     endif
 
-    let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\),'
+    let l:pattern = '\(..\{-}\) at \(..\{-}\) line \(\d\+\)'
     let l:output = []
     let l:basename = expand('#' . a:buffer . ':t')