foreach $file (@files) { $file =~ s/^(.*)$/'$1'/; }