if ($fsline =~ /(.:\\.*)/){
   $dir = $1;
   print "$dir\n";  #works fine here
}