X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=677888f850948c490c9be43ebbc34abd7e30e49c;hb=6e8ea6c3fb2e0702e616a6553629905ca6ae22c1;hp=77259d071ad2e18707ed5f32e79cbf669b675a35;hpb=407d9a80a8af1fa6c1ae2c8fbca833e49da6e816;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 77259d07..677888f8 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1237,7 +1237,7 @@ sub import_one
 				
 	# first line;
 	my $line = shift @$ref;
-	my @f = split /\b/, $line;
+	my @f = split /([\s\@\$])/, $line;
 	@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
 
  	unless (@f && $f[0] =~ /^(:?S|SP|SB|SEND)$/ ) {