Select Code to Download

[me]$ ls -a .sav*
.saves-19639-~  .saves-19896-~  .saves-19896333-~  .saves-22-~
[me]$ perl tmp
+ ./.saves-22-~- ./.saves-19896333-~+ ./.saves-19639-~- ./.saves-19896
+-~[me]$

[me]$ perl -w tmp
Useless use of single ref constructor in void context at tmp line 2.
...
Use of uninitialized value in print at tmp line 3.
+ ./.saves-19639-~Odd number of elements in hash assignment at tmp lin
+e 2.
- ./.saves-19896333-~Use of uninitialized value in print at tmp line 3
+.

`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;

`@$_`?print"+ $1":print("- $1")&&`rm $1`;

[me]$ perl -w tmp
Use of uninitialized value in print at tmp line 3.
+ ./.saves-22-~- ./.saves-19896333-~Use of uninitialized value in prin
+t at tmp line 3.
+ ./.saves-19639-~- ./.saves-19896-~Use of uninitialized value in prin
+t at tmp line 3.

print$\;     # cause of last warning

...
print"\n";
print qq'\n';
   #etc.

[me]$ perl tmp
+ ./.saves-22-~
...
+ ./.saves-19639-~
- ./.saves-19896-~
[@me]$