One liner

[Dermot]

Hi,

ls | perl -ne 'print if /\.$/'| sed 's/\(.*\)/mv & \1jpg/' | sh


I concocted the above command to change files named

A1234.  to A1234.jpg

Is there a pure perl one-liner for this? Just curious.

Thanx,
Dp.