use Encode qw(encode decode);

while ( my $readline = <$fh> ){
   my $foo   = decode('UTF-8', $readline);
}