perl -le "for (@ARGV) { printf qq('$_' does %s end with a backslash\n), /\\$/ ? '' : 'not'}" c:\ c:\foo