#!/usr/bin/perl
@filelist = <>;
{ local $/; <STDIN> }
for (@filelist) {
   chomp;
   print "Do you wish to modify $_? (y/n) ";
   $ans = uc(<STDIN>);
   print "$_ modified\n" if substr($ans, 0, 1) eq "Y"
}