use Encode;

# ...  $buff holds a utf8 string:

my $cp1250buff = encode( 'cp1250', $buff );