Help for this page

Select Code to Download


  1. or download this
    perl -pi -e '$ARGV =~ s/\.txt//; $_=">$ARGV\n$_\n if($.==1)"' *.txt