use 5.010;
open DATA1, '<', './file';
open DATA2, '>', './file_change';
state $path;
while(<DATA1>) {
if(/\S/) {
if(/:/) {
$path = "$_";
chomp $path;
chop $path;
}else {
$file = $path;
$file .= "/";
$file .= "$_";
print DATA2 $file;
}
}
}
close(DATA1);
close(DATA2);
open DATA3, '<', './file_change';
open DATA5, '>', './result';
while(<DATA3>) {
$filepath = "$_";
chomp($filepath);
#chmop $filepath;
#print $_;
open DATA4, '<', $filepath;
state $startpoint;
state $endpoint;
state $pin;
while(<DATA4>) {
# if(/slack\s\