if(-r "$file_path") {
open(my $fh, "<:encoding(UTF-8)", "$file_path") or die("Unable to read $file_path:$!\n");
while(defined(my $line = <$fh>)) {
if(-r "$file_path") {
open(my $fh, "<:encoding(UTF-8)", "$file_path") or die("Unable to read $file_path:$!\n");
while(defined(my $line = <$fh>)) {