#!/usr/bin/perl -w
 
use strict;
use warnings;

my $count;
my @list = 'C:\username\Sources';

chomp @list;
#print OUTPTR "$_\n" foreach @list;
foreach my $arrchar (@list)
{
   print "array char = $arrchar";
   if($arrchar =~ m/\\/)
               {
                    print "\nfound one \n";
                    $count += 1;
               }
   else
   {
      print"\n i am in else \n"
   }
}
print "value of count = $count";