#!/usr/local/bin/perl -w

@dir = `ls -1 ./`;
for (@dir) {chomp;
  if (/\.jpg/) {my $title = $_;$title =~ s/_/ /g;$title =~ s/\.jpg$//;
#    my $old = $_;s/(^.)/\u$1/;s/_(.)/_\u$1/;
#  if (/\.tst/) {my $old = $_;s/(^.)/\u$1/;s/_(.)/_\u$1/;
#print $old, $_;
print qq!finnegan/$_||$title, ©Shawneen Finnegan|W\n!;
# rename("Test-it_Now.tst", "test-it_now.tst");
#$old =  "Test-it_Now.tst";
#$new = "test-it_now.tst";
#print "$old\n$_\n";
#rename($old,$_);
  }
}