cd begperl
mv newline.pl\  newline.pl

##</code><code>##

LS(1)                             User Commands                             LS(1)

NAME
       ls - list directory contents

SYNOPSIS
       ls [OPTION]... [FILE]...

DESCRIPTION
       List information about the FILEs (the current directory by default).  Sort
       entries alphabetically if none of -cftuvSUX nor --sort.

       Mandatory arguments to long options are mandatory for short options too.

       -a, --all
              do not ignore entries starting with .

       -A, --almost-all
              do not list implied . and ..

       --author
              with -l, print the author of each file

       -b, --escape
              print C-style escapes for nongraphic characters

       --block-size=SIZE
              use SIZE-byte blocks.  See SIZE format below

##</code><code>##

#!/usr/bin/perl -w
open my $FH, '>', "test\ \r\x1b" or die;
print $FH "foo\n";
close $FH;

##</code><code>##

$ ls -alb
total 2
drwxr-xr-x+ 1 301058 Domain Users  0 2010-12-15 14:14 .
drwxr-xr-x+ 1 301058 Domain Users  0 2010-12-15 14:13 ..
-rw-r--r--  1 301058 Domain Users 91 2010-12-15 14:12 foo.pl
-rw-r--r--  1 301058 Domain Users  4 2010-12-15 14:14 test\ \r\033

##</code><code>##

$ rm test\ ^M^[