#!/usr/bin/perl

# V 0.1.0 03094 rename.pl
#
# Licensed under GPL
#
#  в  в
#  в в
#  в     вв  в  в  вв   вв     вв   вв   вв
#  в в  в  в в  в в  в в  в   в  в в  в в  в
#  в  в в     вв  в  в  ввв в  вв  в     ввв
#                         в                в
#        martin         вв     krung     вв
#
# ++++++++++++++++++++++++++++++++++++++++++++++++
#
# run as ./rename.pl "*.php" php png
#


#for file in $($1)

for (<$ARGV[0]>){
$file = $_;
s/$ARGV[1]/$ARGV[2]/;

print "mv $file $_ \n";
`mv $file $_`;
}