#!/usr/local/bin/perl5.001
$A="#";$B=shift;for $i(@ARGV){$_=$B;s/$A/$i/g;system("$_\n")}

# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website