--- a/ftpipe	Fri Apr 29 16:48:46 2011 +0200
+++ b/ftpipe	Tue Jan 07 12:04:43 2014 +0100
@@ -60,7 +60,7 @@
 sub parse_url($) {
     $_[0] =~ m{^ftp://
 	    (?:(?<user>.*?)(?::(?<pass>.*))?@)?
-	    (?<host>[a-z\d_\.]+)/
+	    (?<host>[a-z\d\.-]+)/
 	    (?<path>.*)}x;
     my %r = %+;