#!/usr/bin/perl -s
opendir+D,pop;$.=pop;$,=pop;for(grep{-f
$_}readdir(D)){$;=$_;s=$,=$.=;(!defined
$q||defined$i)&&print"$; $_";(defined$i
) && do{print" y/n?";$y = <STDIN>;($y=~
/^y/i)&&++$force;}; (!defined$q)&&print
"\n";defined$force&&rename$;,$_}


##</code><code>##

opendir+D,pop;
$.=pop;
$,=pop;

##</code><code>##

for(grep{-f$_}readdir(D)){ ... }

##</code><code>##

$;=$_;
s=$,=$.=;

##</code><code>##

(!defined$q||defined$i)&&print"$; $_";

##</code><code>##

(defined$i)&&do{ .. }

##</code><code>##

print" y/n?";$y=<STDIN>;($y=~/^y/i)&&++$force;

##</code><code>##

(!defined$q)&&print"\n";

##</code><code>##

defined$force&&rename$;,$_