- or download this
$imagename =~ s/^(.*?)(\.\w*)$/my $temp = $2; ($_ = $1) =~ s!\W!_!g; $
+_ .= $temp/e;
- or download this
#! perl -sw
use strict;
...
J.R,ewing.jpg
A¬!£$%^&*()-_+={}[]'@;:~\#\"<>,./|\?.jpg
pic.
- or download this
C:\test>199139
me_swimming.jpg
...
C:\test>