#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

chomp(my @filelist = <STDIN>);

close STDIN;
open STDIN, "<", "/dev/tty" or die "Cannot reopen STDIN";

foreach(@filelist) {
    print "Do you wish to modify $_? (y/n) ";
    my $ans = uc <STDIN>;
    say "$_ modified" if $ans =~ m/^Y/;
}