my $foo = "211.46.248.1 /the / directory / is / here/ l:user p:pass po
+rt:21";
my @bar = $foo =~ /^(\d+\.\d+\.\d+\.\d+) +(.+)(?= l:) +l:(\S+) p:(\S+)
+ port:(\d+)/;
print join ',', @bar;
# prints 211.46.248.1,/the / directory / is / here/,user,pass,21
[download]

You may want to qr// the RegEx if you plan to use it inside of a loop while parsing your file.

--perlplexer