use strict; use warnings; open (HANDLE, 'C:\username\Sources') || die; $_ = join '', ; my @m = m/\\/g; ### All matched strings print ('Found ' . ($#m + 1) . ' matches!');